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SINCLAIR PREND DU POIDS : 
LE SINCLAIR QL *°^ 



EDITO 




II y a quelques nouveaux ordmateurs 
qui sont dislnbues mamtenant de- 
puis suffisammenl longtemps pour 
rentrer dans I'hebdo et pour avoir. 
chaque semaine. leur programme 
le LYNX qui remporte un ]Oli SuCCes. 
le LASER et I'AQUARIUS qui se ven 
dent comme des petits pains et peut 
etreaussi I'ALICE. encore que ce ma- 
teriel est surlout un materiel d initia- 
tion assez limite. Chez CASIO- il y a 
aussi le PB 100 qui est un des ordtna^ 
teurs de poche le plus vendu et le 
PB 700 qui fait, luiaussi.un mainour ' 
Vous connaissez le pnncipe pour (ai- 
re entrer voire ordmateur favon dans 
I'hebdo vous vous enchamez a vo- 
ire table de travail, vous nous envo- 
yezdes supers programmes el deslc 
mois procham ce sera la. loutes les 



Suite page 19 



Depuis t980 SINCLAIR est devenu !e 
SDeciahste des micro-ordinateurs de 
taille et de prix reduits Le ZX 80 est 
I'exempleparfaitdece type de mate- 
riel : IKo de RAM. moniteur noir et 
blanc exclusivement et un format 
pocket 

Les ZX 81 et autres SPECTRUM ont 
fait I'effet dune bombe sur le mar- 
che. effet dO en grande partie a un 
tres bon rapport qualite/prix. SIN- 
CLAIR recidive en 1984. avec une 
bombe de taille plus impressionnan- 
te. cette fois ; LE SINCLAIR QL 
SINCLAIR QUANTUM LEAP pour les 
mtirnes, offre 128 K RAM utilise un 
processeur 32 bits, possede deux 
micro drives incorpores. un clavier 
QWERTY un systeme d'exploitation 
multilache. une interface serie 
fRS232C) et une interface pour tele- 
vision cou'eur, et un design tres soi- 
gne. Lagrossebeteva-t-elledevorer 
les petites et se tarller une part du 
marche grand public ? Ou alors SIN- 
CLAIR vise-t-il un marche plus pro- 
fessronnel ? (Ne manquez pas de lire 
la suite dans le prochain numero d'- 
HEBDOGICIEL'!!!) 

UNE HYDRE A DEUX TETES 
II semble qu'un seu! processeur. (le 
32 bits 68008 de chez MOTOROLA 
pourfant ') ne suffise pas a contenter 
SINCLAIR puisque le SINCLAIR QL 
est equipe d'un 8049, de chez INTEL, 
qui gere le clavier, la generation du 

HIPPOREBUS trouvezl'expressio 
(solution en page inteneure). 



son et se comporte comme une in- 
terface de communication serie aux 
normes RS232C. Iiberant amsi le 
68008 de ces taches qui raientissent 
le traitement 




LAMEMOIRE 

La taille en memoire vive du SIN- 
CLAIR OL peul paraitre un peu gran- 
de (128K) mais. d'apres SINCLAIR, 
les logiciels fournis avec la machine 
ne peuVent fonctionner avec moins 
de memoire. 

Pour les plus gourmands utilisant des 
programmes et des fichiers plus im- 
portants. la memoire vive peut elre 
etendue jusqu'a 640K. 



LE SYSTEME D'EXPLOITATION 

Le systeme d'exploitation. le QDOS. 

utilisant 32K de memoire morte 



(ROM) a ete specialement develop- 
pe pour le QL. QDOS est un systeme 
mono-utiliS'iteur.mullitac^e utilisant 
le super Basic comme langage de 
commande. Mode multitache. (plu- 
sieurs programmes tournent en me- 
me temps), les resultats sont affiches 
simultanement sur differentes par- 
ties de I'ecran. 

LE LANGAGE 

Le Super Basic est le Basic de SIN- 
CLAIR, complete par des fonctions 
complementaires utilisant au maxi- 
mum les possibilites du QL : proce- 
dure structuree, vitesse d'execution 
mdependante de la laille du pro- 
gramme, extension du langage pos- 
sible ... 

LESMICRODR1VES 
Ces modules augmentent la capaci- 
ty (100K) et assurent uneconfortable 
vitesse de transfert d'information Si 
necessaire, il est possible de com- 
pleter les deux cartouches incorpo* 
rees par d'autres unites, jusqu'a 
concurrence de Sunitessupplemen- 
taires 



LES EXTENSIONS 



Le SINCLAIR QL possede un "slot" 
permellant d'endcher des cartou- 
ches de memoires mortes Outre le 
slot pour microdnve. el le slot pour 
exlension memoire de SINCLAIR OL 
dispose de 9 portesd'exlension pen - 
phenque 

Deux enlrees sonl reservees au re- 
seau local OLAN. un reseau de com- 
municalion a grande vitesse reliant 



MENU 



Bis 




APPLE II 

Roger ZENSS 

CANON X-07 

Pascal DESPLANCHES 

CASIO FX 702 P 

Laurcnl DUMONT 

COMMODORE 64 

Jean-Louis WANSART 

VIC 20 Base de lespaco 

Pierre-Yves CHA8ROL Page 1 5 
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Flipper 
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Schtroumpf 
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HP 41 


Oscillations 


Franck MATHIS 


Page 10 


MPFII 


Casse-tete 


Andre LEGRAND 


Page 4 


ORIC1 


La bouteille 


J E GERARD 


Page 2 


MZ 


Othellom 


Y AUGER 


Page 5 


PC 1211 Lemanoir 


du comtc Zorck 


Pascal PRIOUX 


Page 9 


PC 1500 


Slalom 



Alain et Nalhal.c GUILLOU Page 2 
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LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE {Reglement en page interieure) 



ZX-81 

Francis GERARD 
SPECTRUM 
Luc BRUNET 
TRS80 
Jean-Francois 
de LIGONDES 
Ti99 4/A(bs) 
Daniel JOLY 
Ti99 4/A(be) 
Michel CORRENOZ 
THOMSON T07 
Chantat DALLE 



Memoire 

Page 1 1 

Monileur Aos 

Page 18 

Scrabble 

Page 13 

Mitraillctte 

Page 3 

Colo ra ma 

Page 14 

Carre cliabohque 

Page 19 



i qui se cache dans la B D. de I'hippocampe Decompose en tro.s syllabes dans les Irois premieres cases, le "tout" a evidemment un rapport avec I'mformatiquc 



_es mewdiants De calldT en portent 

iOUVENT.. . 



ANCE/TRE D6 LA Biw^JtE 



ON N VMENT SoUVENT A SON CORPS 

DEFENDANT.. 




UufV LE WOT EST ANGLAIS ET . 
PAS T«£S SPiRauEL I. 



( N°18 



LA BOUTEILLE 



Buvez un maximum de verres mais sans toucher a la bou- 
teille ! II n'y a pas d'alcootest mais attention, gardez la tete 
assez claire pour contrdler les fleches ou la manette de 
jeu ! Un jeu grisant avec lequel vous ne risquez pas de 
prendre de la bouteille. 

J.E GERARD 
Mode d'emploi . 

Au depart, il y a dix verres, une bouteille et trois "pochards". Seul le 
pochard se deptace a I'aide des quatre fleches ou de la poignee dejeu. 
Objectif : attraper le plus de verres possible, en evitant les bouteilles. 
Tous les vingt verres. uncamaradeviendrasejoindre a vous : plus on est 
de saouls plus on rit 
Score a battre 226 verres. 




- ■■-.'• 
5799 
3719 
5729 
■ ■ 
574fl 
5798 
5760 



189 


REM t»t INI7IRLISHTI0N 


■;■ 


aosuee^ea 


conFi^uration des obiets 


;-■!■' 


uosUBSwe 


Presentation du Jeu- 


- ■■ 


V ; '.:r,'."-:- 


Execution theme music*! 


■■* 


;■ ajB576a 


OPtioti clavier on Pot9ntt 


■■■■■-' 


cosusseee 


Oessin du tat 




coeuBieee 


Derou I ewent du J«u 


zee 


, ■ ■;:■■;■:- 


Score final 



1555 IFH0T(PEEK<R>-191ORPEEK<ft>-t83>GOT0I43a 
1669 'r"l=Y+l IFY1=27G07015?8 

1679 S=SCRIKX.Y1) 31=SCRN<X*1.Y1 r- IF3< ;32C0701788 
1539 IFSIO32G0TQI728 

16?9 PLOTX.YI.P* PLOTX.Y." " Y='f'l G0TD1658 

1790 IFS"123THENPLOTX,Y1,32 G0SUB2838 GnrnifiRO 

1719 IFS1 = 123THENPL0T»1.YI . 32 V_ VJEIQ^ 'SOTn25?0ELSE2530 

1729 IFS1=IZ3THENPU)TX+1,Y1/32'GOSUR2038 GOTOl690ELSE253e 

2999 ' 

2919 REM Verre touch* 



1019 REM ttt DEROULEMENT DU JEU 

1929 

1939 VT=9V8=9 7V=9 VI=3 XV=43811 

1949 X=INT<-RNCK1 W371+1 Y^INTCRMX 1 >*2? ) 

1959 IFSG8HC X, Y K >320RSCRN/ X+l . Y X >32GOTO1840 

1969 PLOTX.Y. F« 

1965 IFOP=2COT01428 

1979 GETW« IFWSO" -GOTOI979 

1975 GETW* 

10S8 W=RSCW*> IFU<:SOPW>llGr)T01979 

1999 IFWO3C0T01159 

1199 WS=KEY*IFW*O-"GOTO1030 

;:'.-:• ■?:-■: -■: : : ^=;^':::7? 

1129 3=SCRN<X2,Y> IFSO32G0701149 

1139 PL0TX*1.Y,P* PLDTX.Y.32 X=X*1 G0T01199 

1149 IF3=123THENPt07X2.Y.?2 G08UB2838 G07Q1 139EL3E2530 

1159 IFUO3G0T01219 

1169 W*=KEY* IFU*</-''G0TG19S3 

1179 X1=X-1 IFX1=9GOTO1110 

1189 S=SCRN<X1,V>=IFSO32GOTO1290 

1199 PLOTX1.Y.P* PL0TX+I.Y.32 X"X1 GOT01 169 

1299 IFS-123THENPL0TX1.Y.32 505 62030 COTO1190ELSE2S38 

1219 IFUO11G0T01319 

1229 M*=tfEY*:IFM»O*"CrjTOlBS0 

1239 Yl=>Y-l^IFYl=-lG0TrjI339 

1249 5=SCPJKX.71 rSl=5CRN<X+l.YlMFSO32G0T0l279 

1259 IF31O32G0T01399 

1268 PLOTX.Yl.PVPLOTX.Y," " : Y=Y1 G0701229 

1279 1FS=123THENPL0TX.Y1.32 COSUB2030 CO7O1230 

1299 IFS1=123THENPLOTX+I.Y1.32^GO31JB2930 

1299 G0TP2539 

1399 IF31=123THENPL0TX-H.Y1.32 ■Q0SUBZB3Q GOT01269EL3E2539 

1310 IFUO18G0TG1999 

1329 WS=KEY» IFUSO""G0Tril939 

1330 Y1=Y*I IFY1=27G0701239 

1343 S»SCRH/X,Yl>:Sl=SCPN<X-»-l,Yl>;IFS<>32G0TOI37g 

1359 IFS1O32G0701499 

1369 PLOTX.YI.P* PLOTX.Y." " Y=Y1 G0T01328 

1 379 I FS= 1 23THENPL07X. Y 1 - 32 ■ G0SUB2939 G0TO1 359 

1380 1FS1-1237HENPL07X+1.Y1,32 ■ G0SUB2939 
1399 GOT02539 

1499 IFSI=1237HEMPLOTX+I.Y1,3Z=GO3UB030 G070I368ELSEZ539 

1419 PEM Jen »v*e la Poi»nee 

1429 IFP£EK<-RX>153G07014Z9 

1439 IFPEEK'R>'/133G07ai439 

1449 IFMOT' PEEK( R>«I310P.PEEK< R >-133 ;GQTrjl439 

1459 X2=X-2 IFX2-33G07015I8 

1460 S=SCPNf X2.Y>'IFSO32G0T01489 

1479 PL07X+1 , Y. PI • PLOTX, Y, 32 1 X-X+l OTTO I 449 

1 4e0 IF3= 1 23THENPL07X2, Y , 32 ■■ GOSUB2039 ' GOTO 1 470ELSE2530 

1499 IFPEEh'A KH90GOTO15W 

1=.O0 IFHOT<PEEKCH>"191ORPEEK<flJ-lOT)GCrrO1330 

1510 X1=X-I IFX1*0GO7O1458 

1529 S=3CPH'/1,Y > IFSO32G070I549 

1539 PLOTXI.Y.P* PLOTX+1.Y.32 X=X1 GOTOI509 

1549 IF3=1237HEtlPLrj7Xl.Y-32 G03UB20>? GOfOi5:-:0ELSE2530 

1550 rFPEE*'<fi>'>175OTT01649 

I 560 IFHOT-' FEEt" R '=1910FPEEf < R /=> 1 75 ^0701640 

1579 Yl=Y-l IFY1=-1GOT01£69 

1539 3=3CF!i.';-:.n - Sl=SCPNf X+l - Yl :■ IF?.' >32G07016I9 

1599 IF3IO32C0T01638 

1690 PL07X.Y1.PS PLQ7X.Y." " Y=Y1 GO70I569 

5610 IF3=1237HEHPL07X,Y1,32 GOSIJ820OT GO7O1590 

1629 IF31-123THEHPL07X+1.Y1.32 GO3IJB2033 V3WZ338EL3EZS3& 

1539 1F31=I237HEHPL07X+1.Y1,32 G03UE2939 GQ7fjl699ELSE2530 

1640 [FPEEC'R >' '1B3GOTO1430 



.Y3+1 ><>32G0T0297t 
.127 



*CEXV,31 ; pOKEXV*l,33'XV=XV+3 
V7*=RIGH7$':'7T*,L? 
:'MID$<V7*,I.1>VHEX7I 



EXPLODE 

FQPI=17O10PLO7X,Y,P1S MHIT5 'PLOTX. 

PL07X,Y," "'VI«VI-1 

XV=XV-3'P0^EXV,32 PO^-EXV+1,32 

IFVI>9GfJ7QI940 

PE7rjRM 



>^ 



2930 PIHG V7=VT + 1 i m=\'B*\ ■■ VV=VV+1 

.1341? /r;-lUTt FW< I >S-?S>+1 Y3=IH7CRNDU)»27) 

2950 IFSCFWX3.Y3 ' = 32THEHFL07X3. V3 . 127EL3E2S4n 

;■':•! "- ;=■]:■'■- = ■■ rv:j = ?E'..3E21?(? 

2i?79 X3=IHT'PHD'- 1 ■'*33>+lY3=IHT'RI-JP' 1 >*26 ) 

2930 IF3CRNCX3.Y3)<>3; 

2099 PL07X3,Y3-124 PL 

2109 IFVV=207HEH',"'=9 

2119 VTC-STRKVD L=L 

2129 F0RI = lT0L-POtfE43 

2139 RETiJRX 

250 ' 

2510 REM B0Ut»lUe to' 

2529 ' 

2530 

2948 

2560 

2579 
2580 

5000 

5919 REM **X 0E3-HU KJ JEU 

5929 ' 

5939 CLS-PRPER7 

5935 PEM CooratiOTl des li5nes 

5949 FrjRI=4S0417rj49931S7EP49 

5050 P0KE1-IH7(RNDCI)*7J 

5969 HEXTI 

5199 REM BfflctwM des 3 vies 

5110 POKE43901.1 

5129 PRIH7CHR«(29);CHR*U7^ 

5139 FORI=439927O4890337EP3 

5149 FriKEI.91 PHKEI + 1.93 

5150 HEX7I 

5150 PEM RfF lc h*9e de U boutclllf 

5170 X»IH7CPH0(1 )*33;+l^Y*IH7(RHD<l)+26> 

5180 IFSCPN l -X,Y)'->320P3CF[KX.Y+l X .?2GrjTO5170 

5190 PL07X.Y-124 i PL07X,Y+l,127 

5290 REM Rrfich*9- des 19 verres 

5210 FORI-17010 

5229 X-IKT<RHIX 1 )*38HI = Y-IHTCRNDr 1 )*27) 

5230 IFSCRN<X.YX>32G0Trj02aa 
5240 PLOTX.Y, 123 

5250 NEXT I 
5260 RETURN 
5598 ■ 

5519 REM **X Pres*nt»tlon du Jeu 

5520 ' 

5525 X=PND<;-FEEKC«276>> 

5538 PfiPEP6^ IIIH-4 

5540 PRINICHRfC 12> 

55*^9 PRINT" " , CHR«< 4 I . CHW 27 ) 

5569 PRINT PRINT PPIMTCHP*< 4 ) 

5579 PPINT7BB 1- lS>"Uti P*uvre Pochird avln> ess. 

r .^:;0 PRINT"d'ftttraPer 196 verres lui I 'entO'jr. 

ss^9 PRIHTTflBK 13>"Ride-le • se dlri-Ser svec les 

4 Fitches Ml U P'" J i9n»e." 

5609 FRIN77RBM8>"M*i» Ufftlrt ClBJi trriP bM. M 

5619 PRINT"f»-.'lte-lLU de Prendre une bouteille." 

5620 PRIN7"sinon. il mart FoudrosS III" 

5638 PRlNTTrSClS^'CoMM ce Pochard fait Partie" 
5649 PPlNyd'une bande de 3 coPalns, vlte un" 
5659 FPIHT"autre arrl%ye • W rescoosse, lu'un" 
5669 FRI|l7"«Xm- sort fltas**bl« attend." 

5679 PPlNTTRBf l8)"Tu. Perds la Partle it-and tous' 

5639 PPIN7"les Pochjrd3 sont FoudroySs. " 



r.P* HRI75 NEX71 



tXt LR B0U7E1LLE 



nt" 



:■'"■ r I* ■* ■- 

.■■::■-;■■- wrr** ■•-'.; 

■ ■ ■■■' ' ■ : ■■-.-- .■■■■■ 

PRIH1 —-:*--- [«frt m 9lMlr« • 1» bande" 

. ■■ ■ . . ■ : 

FPlHT'PPIUT-fRFPuie vre touch* Pour COfltlfMCfyj 

PE7PII 

REM -■ to 1 option 

:; .- : IltKl 

PRINT FPU.''--- : ■ • : - I ■ *-- 



:'':»- 



5689 PRIHI PRINT-i - |« flSchtJ d'/ ell l«r 

S81fl PR1KT"2 - In Poi9r>3e de -e-J ^celle d* doite> 

';'» !■ rwW?ro '.:" ' 
5;:~9 GE7PS 

5=49 IFR*=-1~THEN0F=1 GOT05379 
5958 :-"S='2"THEN0F=2 P0TO58 78 
5?t-? :;*;t:70 

5870 PPIHT PRIirnfiB* 17)"Tu actios le twuvenent d-j Pec^ardavec "J 
589B IFOP«iTHEMPRIKT" 1 j b?rre d'es^ice. "ELSEFRINT'le bouton d* tn 



5??9 
5399 

£&>* 

-■•:■:-; 

5029 



• to-jche Po>xr co***encer le ie'j^' 



REM 



I EXECUTION t'U 7HEME MUSICAL 



^070 



RES70FE 

F0RI = 17rj32 

PLRY3.9,0.?a?9 

RERD0.N,U,01,H1 

W3IC1.0.N.8 M1JSIC2.O1.N1.0 

WRITH 

RS=KEYS IFR*< >- "THENFLRV0 .3-0.0 PE7UPN 

HRITU^1€XT WRIT290^GO796029 



6090 
6100 

5599 

6519 REM tit CONFIGURATOR t<ES 08JE73 

6529 

5539 

6546 

6550 



6579 



€v2? 
6>?3? 
6540 
■?650 
6669 
5679 
6620 
6699 
6799 



REM Stilt du theme mtstcal 

F0RI=1TQ169 RERDR NEXT 

RErl Le verre 

FORI=47964T84707I RERDR F0KEI,RHEX7 
PEM La bouteille 

FORI=47972TO4707? RERDR Fp-EI.R NEX7 
REM Le Pochard 

FOR I =46893704681 5 KERPR : FOKE I . R NEXT 
FORI =46S24T045S3 1 REROR i POKE I , R : NEXT 
PS="C" + "3- pu=CHR*(219)+CHR«<221) 

REM e accentai^j 

FOP I -46592T046399 FERDR POKE I . R ^ NEXT 
REM s accent 9rave 



FORI =453637046375 RERPfl POKE I, fl- NEXT 

REM e accent circonFlexe 

FOR I =463767046383 PEflpR POKEI -fl NEX7 
6719 PEM flctiv.«tion Poi»r>ee de jeu 
6729 FORI-1026TOie73 REROM P0KEI.M:HEX7 

6739 D0KE553.1926 R=1024 

6740 RETURN 
7900 

7010 PEM tt» DONNEES DIVERSES 
7020 

7070 PEM Thewe wusicat 

7949 0RTR3- 12, 16. 3. 8. 3- 12, 16, 3, 8. 3. 10. 16. 3. 7, 3. 8,16. 3, 5 

7079 0R7R3, 8, 32. 2.8. 3, 12, 16, 3. 8. 3. 12, 16. 3. 8, 3. 19. 16. 3. 7 
7939 DR7R3. 8, 16- 3, 5, 4. 3- 16. 3, 7, 4. 3, 16. 3, 3, 3. 12, 16, 3. 8 
7990 0R7R3. 12. 8, 3, 8. 4. I, 3. 3, 3, 4. 3, 16. 3, 6-3. 8. 16. 3. 6 
7100 0R7R4. 1.3. 3. 5. 4, 3. 8. 3, 7. 3. 12. 8. 3. 8. 4. 1.3. 3.1 
7110 DftTfl3. 10, 24, 3. 3, 2, 8, 4, 3. 3, 3- 10. 4, 3. 3, 3, 8, 32, 2, 8 

7128 REM Le verre 

7138 DR7R6262. 52. 62.2S.B. 8-62 

7149 REM L* bouteille 



7179 0RTR51-23. 23, 31 -62-55-48, 31 

7180 DR7R51,58,46.62.3I.5?,3,62 

7190 PEM e accent ai9ii 

7290 C'R7R4.S,23, 34,62. 32,30.0 

7219 REM t accent 9rtV* 

7229 0R7R16. 8-28. 2- 30. 34.30.0 

7230 REM e accent 9r»ve 

7249 DRTfll6.8.28.34,62,32,3O-0 

7250 REM e accent clrconFleve 

7268 OfiTfi3.20,28,34.62,32,38.0 

7279 REM Activation PoiSnee de ieu 

7280 PATA72, 173, 1 i 3, 72, 173, 3. 3, 72-169 
7239 DA7A192. 141 .3.3- 169- 128. 141 , 15.3 
7?90 r>RTR173, 15.3.141-0.4-169.54,141 
7310 DR7A15. 3- 173. I, 3 -14 1.1. 4. 104, 141 
7329 OATA3-3.104.141. 15.-3. 104.76.3 
7339 DA7A236 

, srt09 : 
3018 REM tit SCPE FINAL 
8029 ' 

3039 FORI-1 T03 ■ ZAP ■ Uft I T 10 NEXT I SH007 

3040 FOPI-=4S0337O48933 F0KEI.32 NEX7 1 
9050 PAFER5 ■ INK9 PRINTCHRtC 12 ) 

po<0 PRINT" ■•.cMR*'4>.r:HP»':27>.";?r:0RE FINAL 
ee7Q PPINTCHR«<27)y' , N";VT;CHR«(27)i"J VERRES" 



0088 PRINT PRINT FRINTCHR«C4>;' 

RE PART IE 7 " 

«9?0 PPIN7* , '0'N) ■•/CHR*(29) 

3100 GO3UB6038 

8119 IFHf- ,, 0"THEHPRIN7CHRS( 17> 

8129 IFfl«O"N"G0703199 

9130 00KE553. 60419 ^ CRLL535 



iCHR*C27);"HVEUX-TU FAIRE ONE BUT 



SLALOM 



Les sports d'hiver comme si vous y etiez. 

Vous risquez non pas d'avoirmalauxjambes, mais plutot a 

la tete, car il vous faudra reflechir. 

Alain et Nathalie GUILLOU 

II est toutefois possible d'uliliser ce programme dans la configuration 
memoire minimale a condition de supprimer les remarqucs introduces 
pour la comprehension du logiciel. eldefaireapres unNE WO un POKE 
30822,0. 




A500 



ORUN :LF -5: 

f:mh 

^":CLEflR i 
DtGPFI 

• rRBCE":O=30:U 
^10: INPUT "NBR 
E DE COUREURS" 
. 0:0!n ft*CQ): 

Din r to) : oin c 

<Q> 

20:GRfiPH : 

OLCURSOR U10, 



8):SCRGN 
30: INPUT "NBRE DE 

P0RTES",N 
40:Djn X<N):Djn Y 

(N):X<0)=0, YC0 

) = 8 
50:LINE <-50,0)-< 

50, e>, e, i 

60:FOR I^JTD N 
70: INPUT "ENTRER 

X ET y.XU), Y 

(!) 
?5:X(I)-U*X<I):Y< 

1>=-U*Y(J? 
B0:L1NE <XU-1),Y 

<J-1>)-<X(I?, Y 

(I)),3, 3 
90:LPRINT "»" 
100:NEXT I:50RGN 
1 10: YN--Y<N> 
1 1 I :REn ******** 
1I2:REH 

JI3:REn OEFICHfiGE 
DES 

CORftCTERISTlQU 

ES 
] I5!REM 

] 16: REM ******* 
)20:UflIT 60:8EEP 1 

:USING 
130:PRJNT N; -PORTE 

S" :BEEP 1 
M0:PR1NT "DENIUEL 

. " ; YN*S]N fl.U: 

SEEP 1 
!*i0:PRINT "LONGUEU 

R";YM/U 
151:REM ******** 
J52:REn 



153: REM DEPART 
1 54 : REM 

155:REM ******** 
160:"SKI":Tr=0:Bl 

0:GOSUB "NOM 
165:REST0RE 170 

WfilT 50:X~0 



Y= 



]70:DftTO 9.8], 0.3, 
3, 70, 30, 80, 8, 5 

180: READ G, T, N, n, 
, L, K, U 

190:GG=G'S!N 0:T]= 

t^n 

200: FOR 1=5T0 1 

STEP -l:8EEP 1 

:PRINT l:NEXT 

I 
210:PR]NT 'GO' 1 : 

WO IT 0:BEEP 1 
220: 'GO'SEEP 1:0»= 

1NKEY* :B=0 
225: IF A*^"R''LET B 

=.3927: GOTO 30 


230: IF fi««"£"L£T B 

=.7854:G0T0 30 


740: IF n»»"U"LET B 

•I. I781:G0T0 3 

00 
750: IF B»«"Q"LEt B 
-1.5708: GOTO 3 

00 
250: IF fl«-"U"LET B 

a-. 3927: GOTO 3 

00 
265: IF S»«"I"LET B 

»-.7851:G0T0 3 



270: IF A*="0"LET B 

— 1. 178J:G0T0 

300 
280: IF 0*='P"LET B 

=~1.570B:GOFO 

300 
380: FT=TT+T1 
310:B1=B0-CB-B0)/N 
315:S1=B1-B1*B!*B1 

^6;CI=1-B1*B1^ 

2 
320:D]=CB-B0)*8.3 
338:KX--GG*S1 +U*D1 
348:KY=GG*C]-U*(L^ 

FI.KtflBS Dl) 
350:U]=KXtri:U2-KY 

H1-.U 
360:XI=KX*n*Tl.'2 
320:Y]=KY*n*TI^2- 

U*T1 
380:X=X+XI*C1-Y!*S 

1 
390:Y«Y-X1*S1-Y)*C 

1 
400:U=F<UUU1-U2*U 

2) 
410:UNE -(U*X,U«Y 

).e, c 

420:B0=B1 
425: IF U*Y<YNINEN 
228 

430: n=n-(utv vm 

435:U(11 F 5:PRINt N 

t:W01 I 
440:CURSOR 10: 

PRJNF FT:C05UB 

".CLASS" 



445:GLCURS0R (.-X, - 

Y) 
450: GOTO "SKI" 
470: REM ******** 
471: REM 
472: REM ENTREE DE" 

S 
473: REM N0M5 
474: REM 

475: REM ******** 
588:' NOM" 
528: INPUT "COULEUR 

";c 

538: INPUT "NOM-SN* 

558: COLOR C 

578: RETURN 

580: REM ******** 

581: REM 

5B7:REM RESULTdTS 

583: REM 

5841REM ******** 

G00: "CLOSS" 

6I0:R=R*1 

678:fi*CR)^N*: T<R> = 

TT:C<R)-C 
638: IF ROQTHEN 

RE TURN 
650:GLCURSOR <-X, - 

Y):LPR1NT 
660: TEXT : COLOR 2 
670:LPR1NT "RESULT 

(1TS":U5ING ■■«« 

680: FOR 1=] TO 0: 
COLOR C(I): 
LPRINI 0»C 1 > : 
LCURSOR J0:LF 
•1:LPR1NI III) 

090: NEXT l:FNU 



MITRAILLETTE -. 39/4* 



C'estunjeudedes a lancer, unjeude chance a croquer.un 
jeu de risques a prendre ou a laisser, un jeu divertissant 
comme une fete. C'est le jeu de la mitraillette. 

Daniel JOLY 

Mode d'emploi 

La mitraillette qui n'est pas un jeu de guerre mais un jeu de points a 
gerer, se joue avec 6 des et de 2 a 6 joueurs 

Pour 2 joueurs, il y aura 3 manches, pour 3 joueurs 4 marches, pour 
4 joueurs 5 manches, pour 5 joueurs 6 manches, pour 6 joueurs 7 man- 
ches. 

Le premier joueur designe par le son lance les des. 
Le score qu'il aura (ait est facile a compter : 

°Our un as, il aura 100 points. 

•our deux as, il aura 200 points 



Mais attention, pour trots as. Maura effectue 700 points. C'est un triplet. 

- Pour un 5, il aura 50 points. 

- Pour deux 5, il aura deux fois 50 points = 100 points 

Mais, attention pour trois 5, il aura un triplet qui lui vaudra 500 points. 

- Pour le 2, le 3, le 4 et le 6. seuls ou couples, il n'y aura aucun point de 
marque, lis ne prendront une valeur qu'en triplet : 

- Trois 2 -200 points 

- Trois 3 = 300 points 

- Trois 4 = 400 points 

- Trois 6 - 600 points 

La suite 1, 2, 3, 4. 5, 6 est une mitraillette et vaudra 1500 points. 

Le premier joueur aura done jete les des.. 

II neretireraalorsdu plateau que leou les des qui auront une valeur ainsi 

exprime ci-dessus. II est obligatoire de retirer'au moins un de a chaque 

jet de des. Par exemple si il y a sur le tapis un as et un triplet de 2. le 

joueur pourra a sa guise prendre I'as et dedaigner le triplet. A noter qu'il 

est permts de ramasser le triplet et de delaisser I'as... 

Si des le premier jet, unjoueurnepeutretireraucunde.il passe la main. 



Lesdesmisdec&tenepourrontpou' D-jm&meiouetir 

La marque minimum pour s'arretef a un tour est de 350 po n!s LOftMu* 
le joueur aura atteint ces 350 points (avec les des mis a I'ecafl b*«n 
entendu). il pourra a son choix ou sarreter. ou pOur = 

- S'll s arrele. ce sera a un autre joueur de prendre les des 

- S'il decide de poursuivre, il relancera les des restants au tar 1 
rera ceux qui ont de la valeur. Amsi recc-" ■ ■ . ■ - 
jusqua epuisement total des desdansle plateau. Un?; 
pourra relancer les 6 des. retirer ceux qui hnteresseront. ace - 

leurs marques au score deja obtenu et contmuer ainsi jusqu'A ce qu'il 
desire passer la main, ou bien jusqu'a ce que la chance lequrtte et quit 
lui soit impossible de soustraire un seul de du tapis 
S'il parvient a ce stade. il aura tout perdu, meme les points deja econo- 
mises et ce sera a un autre joueur de prendre sa place 
Le gagnant est celui qui obtiendra le plus de points 
Alors soyez temeraire. mais pas trop. 
Car la chance est comme le vent, elle tourne. 
Pour sortir I'AS du plateau tapez 1 

2 2 

3 3 



Ainsi par exemple, pour le jet de des suivants un AS. un 3, un 5, encore 
un AS. un 5. et encore un 5. tapez 1.5.5.5.1 ou 1.5.1.5.5. 1'ordre d'mscrip- 
tion n'etant pas important, le triplet sera pris en compte tout de meme 



■090 REM ■«••• »••• 

10*0 REM -INITIALISATIONS* 
1070 REM •»•«•■••••••••••• 

1080 REM 

1090 CALL CLEAR 

1140 OPTION BASE 1 

lltO Din TDD(6,2.2> ,TPD<4,2) ,TTD<6I ,TCD(4> . TOD 

<6>.TNJ«!6>,TPS<4,2) . TSC<6,2>,TST! 4.2) ,TRI (4,2; 

1120 REM 

1130 REM ................. 

1140 REM * LIBELLES * 

REM 

1 1 40 REM 

1170 L0«-" PAUSSE " 

1180 Ll»-" PERDU" " 

1190 L2«-"R£LANCEZ" ^****- 

1200 L3»-"S0LUTI0N" % ■ 

1210 L4«-- A VOUS " «1*"*> %%. A 

1220 L5«-" VOUS " gft ^BBBBk«^^ 

1230 L7»-"DES OTES" ^^-^ fV ^"^ 1» 

\:t>o LAt.-« bact.e- ^L^M " 

1270 LS«-"TOUR " W»*^ 

1290 LD*»-DES DES" 

1290 REM 

1300 REM ................. 

1310 REM . COULEURS * -^ 

1320 REM ................. ^*P^ 

1330 REM ^ ^Lf0* 

EC=12 «^%% \ rf* 

1380 FLE-12 ^^ |¥U1* 

1390 TA-13 ^V%%% 

1400 CA-1! ^ M * 

1410 DE-2 ^^^ 

1420 FDE-12 

1430 REM 

1440 REM U m i iH I <» 

1430 REM .DEFINITION DES" 
1460 REM .•••*••*•■■•..••. 
1470 REM 

1480 DATA 0000000000000103. OOOOOOOOOOOOBOC, 
03O 1 . C08. OOOC I E I E0CO080C , 030 1 00307378 3 
1490 DATA O0307B7B3000O!03,C0BO000Cl£l£0C, 
O.O0OC1E1EOC. 0000003078783,003078783 
15GO DATA 000000OC1EIE0C, 0030787830003078 
OOOC IE 1 EOCOOOC 1 E , 733000307B7B3 . 1 EOCOOO 
C1E1EOC 
1310 REM 
1320 REM ••■•••••*••>.■■... 

1330 REM •DEFINITION PAVE* 

1340 REM ...a.*.*.***.***, 

1530 REM 

1540 DATA FFFFFFFFFFFFFFFF, O 

1570 REM 

1380 REM ................. 

1590 REM . ASCII DES • 

1600 REM •**■••.•*■••. »».. 

1410 REM 

1620 DATA 1.2,3,4,9,10,11,9.1,5.6,4,12, 

10,11,13.7,3,6.8,14,15, 16,17" 

Ii3'< REM 

1640 REM •....•■.,..„„,« 

1630 REM . POSITION DES « 

1640 REM irtHIIIIHHIHI 

1670 REM 

1680 DATA 3,23.4,29.4,26,9,28,11 23 12 29 

1690 REM 

1700 REM rUfHIIIIIHIIHI 

1710 REM •POSITION SCORES" 

1720 REM •>••■•■»■•••••■. 

1730 REM 

1740 DATA 1,2.1,9,1,16,13,2,13,9,13,16 

1750 REM 

1760 REM ••«•••.•••«-••»«• 

1770 PEM -IMPLANTATION CM-t 

1780 REM »•••»••»•••»•••*• 

1790 PEM 

I BOO FOR [-103 TO 121 

1810 READ CH» 

1820 CALL CHAR(I.CH»> 

1B30 NEXT I 

1840 REM 

1850 REM •»■........»..»... 

1840 REM -PEMPLISSAGE TOD" 
1970 REM *•■•••■•••>••••»» 

18B0 REM 

1890 FAR 1-1 TO 6 

1900 FDR J-t TO 2 

1910 FOR K-l TO 2 

1920 READ TDD(I.J.K) 

1930 NEXT V. 

1940 NEXT J 

1930 NE/T I 

1960 REM 

1970 REM ••..•*........... 

1980 REM "REMPLISSAOE TP0» 
1990 REM ..•••.-•.-•..•••• 

2O0O REM 

2010 FOR I-I TO 6 

2020 FOR J-l TO 2 

2030 READ TPDd.J) 

2040 NEXT J 

2050 NEXT I 

2060 REM 

207O REM -•.•••••••».••••• 

2OB0 REM -IMPLA. COULEURS* 
2090 REM ...•••.••........ 

2100 REM 

2110 CALL SCREENIEC) 

2120 FOR 1=1 TO 4 

2130 CALL COLOR<I.CH,FCH> 

2140 CALL C0LORd<-4.LE,FLE> 

2130 NEXT I 

2160 FOR 1-9 TO 1 1 

2170 CALL COLORd.DE.FDEl 

2100 NEXT I 

2190 CALL COLORUZ, TA.CA) 

2200 REM 

22IO REM ................. 

2220 REM - DEBUT PART IE • 
2230 REM ..•.•••••••...... 

21 4' j REM 

■ JIM 



2320 

2340 
2330 



REM .......*......... 

REM * DEMANDE NOMS • 
REM ••»»•»».».»...... 

REM 

CALL CLEAR 

INPUT "NOMBRE DE JOUEURS 
IF NJ<d THEN 2300 
IF NJ16 THEN 2300 
MA-NJ ♦ 1 
FOR 1-1 TO NJ 
PRINT 'NOM JOUEUR": li 
INPUT ""iTNJ«(II 
TNJtd J=TNJf.d)&L8* 
TSTd, I) -I 
TST< 1,21-0 

REM 

REM ................. 

REM » DEBUT MANCHE * 

REM 

REM •••-••••».•. — -.. 

REM • MELANGE NOMS • 
REM »•••*«......•*.*• 

REM 

FOR 1-1 TO NJ 

N»-TNJ*(I) 

MS-TST1I.2) 

RANDOMIVTE 

N1-INT(RND»NJ*1) 



2360 
2370 

2380 
2590 
2600 r 



-TNJ» 



2610 

2620 
2630 
2440 
26SO 
2660 



LISSAGE TPS* 



2690 

2700 
2710 
2720 
2730 
2740 
2730 
2760 
2770 
2790 

280O 
2810 
2820 



i TST(N1,2)-MS 
NEXT I 
REM 
REM 
REM 
REM •••••••••*•••••• 

PEM 

RESTORE 1740 

FOR 1-1 TO 4 

FOR J-l TO 2 

READ TPS<I,J> 

NEXT J 

NE/T I 

REM 

REM •»*••*»-.»••••»» 

REM • R.A. Z. SCORES 

REM ...-••• .••■••*•• 

REM 

FOR 1=1 TO 6 




'SC(I. 



NT»0 

REM 

REM *......•....».••• 

REM • DESSIN ECRAN • 

REM •••■•••••#•••»«•• 

REM 

CALL CLEAR 

CALL VCHARd, 2, 121,241 

CALL VCHARU. 9, 121,24) 

CALL VCHARd , 16. 121,24) 

CALL VCHARd, 23, 121,24) 

CALL VCHARd, 32, 121.24) 

CALL HCMARd,24, 12I.B) 

CALL HCHAR113, 24, 121,9) 

REM 



, I) ,TPSd,2)- 



2930 

2970 REM .AFFICHAGE NOMSi 
2980 REM ••••••••••••••••( 

2990 REM 

3000 FOR I-I TO NJ 

5010 FOR J-l TO 6 

JO20 CALL MCHAR{TP9' 

A3rj(SEG»(TNJ*(I).J, 

3030 NEXT J 

3040 NEXT I 

3O30 G0SU6 62B0 

3060 REM 

3070 REM ••-»...........•• 

3060 REM • BDUCLE MANCHE • 
3090 REM ................. 

.00 REM 

-•-L8»tSTR» (NT* 1 ) 
20 FDR J-I TO LEN(L») 

30 CALL HCHAP(24,23*J,ASC(SEG*(L«. J. I ) 
40 NEXT J 
.50 FOR I-I TO NJ 
40 T2-0 



3510 T-150O 

3320 GOTO 3610 

3330 Fl-INT(TC0d>/3) 

3340 F5=INT(TCD(5)/3> 

3330 T = INT(TCDd)/3) »70O 

3360 FOR J-2 TO 4 

3370 T-T»INT(TCD1J)/3)»J*I 

33B0 NEXT J 

3590 T=T+(TCDC1)-F1*3>*10< 



90 t 



XT J 



32O0 M1*-TNJ*(I) 

32 lO M2«-L8- 

3220 M3»-L4» 

3730 GDSUB 6370 

3240 CALL SOUNDdOO, 131,01 

3230 CALL SOUNDflOO, 145,0) 

3260 CALL SOUNDdOO. 196,01 

3270 RANDOMIZE 

32B0 CALL KEV<O.V.WI 

3290 IF W-0 THEN 3270 

3300 REM 

3310 REM 

3320 REM • TIRAGE DES • 

3330 REM — •••• 

3340 REM 

3330 Wt-0 

3360 IF 6-DR ■'• THEN 33flO 

:T70 DR-O 

>■■ i an i-i to 6 
3390 reo(j)*o 

34O0 NE/T J 

3410 FOR J-l TO ', Dn 

3420 rTD(JI-!fir(RND-6*l) 

S430 rCDITTD(J) )-TCD(TTD<JJ )■ 

3440 NEXT J 

■ ■ ■■■■ n 

3460 REM •••••• ••■••. 

'd/.. r-i m • f HINTS I ""!.( i' ■ 
(480 REM * 

-.!■... REM 

[300 ir rr,r>d I-TCDI2) -TC0<3H 

•rC0(5)-TCDCfc)' -1 THEN 3330 



i T-T+ 



•30 



3610 

3620 REM •••••••••••••••-• 

3630 REM • AFFICHAGE DES • 

3640 REM •...*«•.......... 

3450 REM 

3660 FOR J-l TO 6-DR 

3670 FOR X-0 TO 1 

3630 FOR V-0 TO 1 

3690 CALL S0UND(-1 . -3. O) 

3700 CALL HCHAR(TPD(J. 1 ) *X, TPD( J , 2) -V, 

TDD<TTD(J) ,X*I,Y+1)*102) 

3710 NEXT V 

3720 NEXT X 

3730 NEXT J 

3740 REM 

3750 REM ••••••••••••••«•# 

3760 REM -SCORE DU LANCER" 

3770 HEM •»-•-•«••.••••••» 

37B0 REM 

3790 FOR J-l TO LEN(STR*(T)> 

3800 CALL HCHAR(14.23*J,ASC(SEG»(STR»(T) 

3B10 NEXT J 

3B20 FOR FS-123 TO T STEP 30 

3830 CALL S0UND<-30,FS,0) 

3B40 NEXT FS 

3930 IF TO1500 THEN 3940 

3B60 FOR J-l TO 3 

3870 CALL SOUND (150, 242, O) 

3B80 CALL S0UNDI150, 330,0) 

3390 CALL S0UNDI150, 392,01 

3900 CALL SOUNOdSO, 323,0) 

3910 CALL S0UND(150,392.O) 

3920 CALL SOUND 1 150, 523,01 

3930 NEXT J 

3940 DS-0 

3950 IF T-0 THEN 5090 

3960 IF T+T2<350 THEN 4110 

3970 REM 

39B0 REM ..*»*••.........» 

3990 REM »LE SCORE >- 330« 

4000 REM •••••••••••ii*»4»- 

4O10 REM 

4020 GOSUB 6490 

4O30 M2»-L2« 

4040 M3*-L3» 

4050 GOSUB 4370 

4060 CALL KEY(O.V.W) 

4O70 RN-RND 

4080 IF W-0 THEN 4040 

4090 IF V-7B THEN 5240 

00 IF V<>79 THEN 3970 

10 REM 

120 REM ••••••••••*»«•«■« 

■130 REM • ON CONTINUE • 

) REM ."•.»••.•••••»••• 

i REM 

I GOSUB 6490 

170 M2»-L7» 

I M3»-L8» 

1 GOSUB 6370 

4200 CALL KEVCO.V.W) 

4210 RN-RND 

4220 IF W-0 THEN 4200 

4230 IF V-13 THEN 4370 

4240 IF V-32 THEN 4330 

4230 IF V<49 THEN 4200 

4260 IF V>54 THEN 4200 

4270 DS-DS+1 

4280 IF DST7 THEN 4310 

4290 DS-DS-1 

4300 GOTO 4200 

4310 CALL HCHAR(20,24*D3,V) 

4320 GOTO 4200 

4330 IF DS<1 THEN 4200 

4340 CALL HCHAR(20,24*DS,32) 

4330 DS-DS-1 

4340 GOTO 4200 



44 I o REM 

4420 IF DS'l THEN 4200 

4430 FOR J-l TO 6 

4440 TOD(J)-0 

4430 NEXT J 

4460 FOR J-l TO DS 

4470 CALL GCHAR<20, 24*J . C) 

4480 T0D<C-4B)«T0D<C-4Q)+I 

4490 NEXT J 

4300 FOR J-l TO 6 

4310 IF TCD(JJ-'TODiJ) THEN 4940 

4520 NEXT J 

4330 CALL HCHAR (20. 24 , 32, B> 

4540 REM 

4550 REM •••••••••••>»•••■ 

4560 REM 'SCORE DES OTES* 
4370 REM •••."•■•••••••••• 

45B0 REM 

4390 IF TflDd )"T0D(2I *TDD(3I"10I 

»T0D(3)»T0D(6) i 'hen 4620 
4600 t i -1500 

■I'.l" f.UHJ 1/','.' 

4620 Cl-INI (T00U1/3I 
I Cfl INT '■ rOD(91 ' II 
4f.4n Ti-iNiiToniii/:.).?,"-, 

A//,' i mi- j-2 TO 6 

4660 I l-ddNTdODU)/ '■> •.!• !"■' 

«70 NEXT J 

■i/.rio ri-r I HT00(t>-Cl-3)»I0O 

4690 Tl-TI *<r0D»3>-C5"3>*5O 

4700 ' OH J-2 TO 6 

4710 11" T0DIJ1-0 THEN 4730 



4720 II i ! 
i IF 



4730 



*T0D(JJ 



■TODIJI THEN A'/\ 



4760 DR-DR.DS 

4770 CALL MCHAR122, 24. 32,8) 

47B0 T2=T2*TI 

4790 FOR J-I TO LEN (STR*. ( T2) I 

4800 CALL HCHAR(22.26*J,ASC(SEG«<STR»*T2),J 

4B10 NEXT J 

4820 GOSUB 6290 

4B30 GOTO 3360 

4B40 REM 

4350 REM ................. 

4B60 REM • MANOUENT DES • 

4370 REM •»••• • 

4380 REM 

4890 CALL S0UND(500,-1.0> 

4900 GOSUB 6490 

4910 M2»=LD« 

4720 M3»=L9» 

4930 GOSUB 6370 

4940 CALL HCHAR(20,24.32.B) 

4950 GOSUB 65B0 

4960 GOTO 3940 

4970 REM 

4980 REM ••••• 

4990 REM *DES INCORRECTS* 

5000 REM 

3010 REM 

5020 CALL S0UND(500.-i .0) 

5030 GOSUB 6490 

5040 M2«-L3» 

303O M3»-LO". 

15060 GOSUB 6370 

507O GOSUB 6590 

508O GOTD 3940 

5090 REM 

5100 REM ................. 

5110 REM "LE SCORE EST-O. 

3120 REM ................. 

5130 REM 

3140 GOSUB 6490 

5130 FOR FS-1510 TO 110 STEP -lOO 

5160 CALL S0UND(-5O,FS.O) 

5170 NEXT FS 

5180 M2T.-LB* 

5190 M3*-LI« 

5200 GOSUB 6370 

3210 TPSd, 1 >-TPSd. l)*l 

3220 CALL HCHAR (TPS (I . 1 ) . TPS< I . 2) *2. 45, 4) 

5230 GOTO 5410 

5240 REM 

5230 REM • • 

3260 REM • JOUEUR ARRETE • 

3270 REM ••••.«•".."..•■.. 

5290 REM 

3290 T2-T2»T 

5300 REM 

5310 REM ................. 

3320 REM • M.A.J. SCORE * 

3330 REM .*........•...••• 

3340 REM 

5350 TSC(I,2)-TSr.d.2)+T2 

3360 TST(I.2)-TSTd,2)*T2 

3370 TPSd. 11-TP51I, 11*1 

53B0 FDR J-I TO LEN <STR» (T2) 1 

5390 CALL HCHAR (TPSd , 1 1 , J*TPS d . 2) *5-LEN 

<STR*.(T2) ),ASC(SEG»(STR»(T2I ,J, 1) > ) 

5400 NEXT J 

5410 G05UK 62B0 

5420 NEXT I 

3430 REM 

5440 REM •*•"»••««.. •.•... 

5450 REM • FIN D'UN TOUR • 

5460 REM •■-••■ 

3470 REM 

3480 NT"NTH 

5490 IF NT<IO THEN 3070 

3500 REM 

5510 REM 

5320 REM • FIN DE MANCHE • 

r^fj-o REM .....•••■• 

5340 REM 

3330 FOR FS-BBO TU 110 STEP -MO 

5360 CALL SOUND (200, FS, 01 

5570 NEXT FS 

5380 FOR I-I6 TO 23 

3390 CALL HCHAR d , 24. 32, B) 

5600 NEXT I 

3610 FOR I-I TO NJ 

3620 TPSd, 11-TPSd, !>♦! 

3630 T0»-STR«<TSCd,2) > 

3640 FOR J-l TO LEN(TO») 

5650 CALL HCHAR (TPS d , I I , J*TPS«1 , 2) *3-LEN(l 

ASCISEG»(TD»,J, 1)1) 

5660 NEXT J o 

5670 NEXT I Q 

5680 REM 

5690 REM ••••.«• .*.i 

3700 REM « TRI MANCHE 

3710 REM ••*•••.••••••••< 

3720 REM 

3730 FOR I-I TO NJ 

3740 FOR J-l TO 2 

5730 TRKI.JI-TSCd.J) vv ^STF/ "^ 

5760 NEXT J ^^e^V' JAy 

3770 NEXT I ^LA / fyl 

37B0 GOSUB fc660 i4^t "W 

3790 CALL SOUND (200. 392. O) 

5B00 CALL SOUND (200, 494 , 01 

5810 CALL SOUND'. '"".'■" '."■ 

3820 Ml«-TNJ*ITRI d , I ) I 

5B30 M2»-L84 

3940 M3»-LA« 

5030 GOIiiJi' '■ 170 

506O FOR J-l 10 5 

■.!(,'■■ dosub 65oo 

38B0 NEXT J 

30»0 I "i i W.EAB 

5900 PRINT "LI Mil inl HI (.A MANCHE N0"1NJ»2-MA 

591 ■ ' MNT " "'"' 

5920 For- I-I rO "I 

■/■ | i ■ irll I i'.t (i»( INJtdRI (1 . 1) ) . I. IO) I "-"l 

TRI (1,2)11 

■J940 '" ■ i I 

5950 m- (in ! : 

.,.,...., i-i no "ni i trvei UM lniK.ui " 

3970 I"''" i. KBV(0,V,MI 

5980 ii W FHI N 39 '0 „ , r 
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FLIPPER 



Vous connaissez sans doute les flippers, mais y avez-vous 
deja joue sur un CASIO FX 702P ? Voici un programme qui 
vous permettra de flipper ou vous voudrez... Un conseil, 
n'y jouez pas en cours, il a deja fait rater le Bac a toute une 
classe de terminale !!! 

Laurent DUMONT 

Mode d'emploi ; 

Ce programme est concu pour occuper le moins de place possible 

dans la memoire de voire CASIO. (C'est pourquoi il ne mange que 660 

pas de programme) . mais il peut etre facilemen! adapte a un autre 

ordinateur de poche. grace a I'organigramme et a I'explication des 

subtilitesduFX702P 

Le but du jeu est v raiment tres simple, mais demande de bons reflexes 

ainsi qu'une attention constante II vous faut marquerle plus de points 

possible pour battre le record et gagner des parties "gratuites". Pour 

cela essayez de ne pas perdre votre balle 

Chaque lois que le graphisme "=-— -" apparaTtra (il materialise le flip 

gauche) appuyez le plus rapidement possible sur la touche "0" (zero). 

Chaque fois que '"— — " apparaitra surl'afficheur, appuyez sur la touche 

"+" (plus) pour flipper a droite. 

Apres avoir tape 702-FLIP (ce n'est pas tres long), il faudra initialiser le 

record car, a I'aide d'une petite astuce, on le place en memoire statisti- 

que pour qu'il ne soit pas efface par un ordre VAC (effacement des 

variables). Faites F1 SAC et entrezla valeurzero en memoirestatistique 

par (zero) STAT Les records seront alors automatiquement remis a 

(ours {sauf si vous utilisez la partie statistique, auquel cas il faudra 

recommencer I'operation d'initialisation). 

Maintenant un RUN ou un FA P.. lance 702 FLIP L'afficheur marque 

CREDIT 1 3 BALL, ce qui sigmfie que vous avez une partie dans laquelle 

trois balles sont a jouer. Presser la touche CONT et c'est parti... 

II peut arnver plusieurs choses a votre balle sans que vous ayez a inter- 

venir ; 

- Votre balle peut toucher un BUMPER (cette espece de champignon 
des flippers) qui peut vous faire marquer jusqu'a 4400 points. 

- II est egalement possible que le FLASH apparaisse. vous serez alors 
gratifie de 20 points. 

- Le STOPPER bloque la balle (mais pas les points qui grimpent jusqu'a 
4400). 

- Le BONUS (200 points). 



- Le SUPER BONUS (1000 pointsj 

- L EXTRA BALLE sescaracteres s'allumentau fur eta mesure en don- 
nant 2000 points Lorsqu'elle est apparueentierement. vous avez droit 
a une "balle gratuite" et 6000 points. 

Ces sequences ne demandent pas votre intervention, mais les flips 
vont se charger de vous reveiller... Ces deux (lips creent diversion et 
mettent vos nerfs a rude epreuve, car ils peuvent apparaitre en serie. 
vous faire des fourcheltes. etc. . soyez vigilant, n'oubliez pas que c'est 
le hasard qui decide de I'ordre des sequences ! 
Si jamais vous manquez un flip en appuyant trop tard. vous perdez la 
balle (sauf si vous n'avez pas marque de points). Un message "OUT . " 
suivi du nombre de points que vous avez marque depuis le debut de la 
partie s'affichera. 

Pour continuer a jouer, un seul remede : un appui sur la touche CONT 
et c'est reparti... jusqu'a ce que vous n'ayez plus de balles ! Ouand 
vous n'avez plus de balles. trois cas se presentent : 

- Vous etes le plus fort et vous avez claque le record bravo ! vous avez 
gagne une partie. Maintenant c'est votre record qui est le score de refe- 
rence jusqu'au suivant. 

- Voire score (record ou non) est superieur ou egal a 100 000 ; et une 
partie gratuite pour le 100 000 !!! 

- Si aucune de ces conditions n'est satisfaite (si, si.caarnve !), c'est fini 
pour vous. Un "game over" vous fait comprendre que les parties gratui- 
tes sont pour la prochaine... 

PS : au depart, vous claquerez le record (normal il est a zero !). 
Voyons maintenant la structure du programme. 702 FLIP est compose 
d'une partie principale qui "envoie la balle" vers une des sept sequen- 
ces (grace au GSB ou GOSUB en basic standard. Ces modules sont 
reperes par des petits ronds sur I'organigramme, lis sont totalement 
independants les uns des autres. Le programme central gere les affi- 
chages de score, les balles perdues, les clacs, les records et forme la 
boucle principale du jeu. Si la disposition des touches de flip vous 
deplait. voici comment changer les touches d'action : il suffit de savoir 
quele flip gauche est dansla variable JSdelalignelOOetceluide droite. 
toujours dans JS mais est a la ligne 110. 

La vitesse du jeu (qui me semble convenable) peut etre modifiee par 
les WAIT (instruction de pause de I'affichage des lignes 30, 36, et 55 
du programme. La boucle qui sert I'attente d'un caractere par KEY 
(ineyS en basic standard) de la ligne 111 peut etre modifiee pour 
changer la rapidite du jeu. 

Pour ceux qui aimeraient adapter 702 FLIP a un autre ordinateur, le 
tableau des variables est la, ainsi que I'organigramme. Voici quand 
meme le rappel de certaines particulates du basic CASIO 702P ; 
souvenez-vous que Instruction CRS apres un PRT (print) du CASIO 
correspond a un TAB sur d'autres ordinateurs. La variable S est une 
variable alphanumerique seulement, et elle contient 30caracteres. On 
peut y effectuer des traitements de chaine avec MID. 
En effet, si S - "EXTRA" ; MID (1,3) donnera : EXT et MID (2,2) ; XT 
Je pense que les principaux points deroutants du basic de la 702P (qui 
pourraient gener pour une adaptation sur une autre machine) sont 
eclaircis. Bons flips... 




FX 702 Pi 



LIST 

i vnc i*="HraH 

BLL ":«=! 
18 FOR N=3 TO I ST 

EP-1 
28 PRT "CREDIT:";!! 

;H;*e«ir 

38 ami 8iSS6 UHT 
!RRHI»7i*18+18 
8): IF 0=1 TIO 
58 

35 GSS 36:T=T+E:SS 
B 36:E=9:eOTO 3 
8 

36 WRIT l:PRT CSR 
TitlltHiTiRET 

53 Z=Z+T:PRT "OUT. 

..";ZiO=8:IFT= 

8!H*I 
55 T=8:ST0f IHEXT 

HtKfllT 5iH=H 
68 IF Zik5;FRT "C 

LBC":«*1 
78 K=HX: IF K<Z;SRC 



:ST»T Z:PRT "S 
ECOffllVttir: 
«*1 
8« PRT "RECORD: - ;* 

X 
98 IF «>9;Z=8:S=»: 

SOTO 18 
5? PRT ■6RK OVER" 

:EK0 
188 PRT "==--": JS=" 

8":60T0 111 

118 PRT CSR 15;*-= 

=»:«=•(" 

111 FOR V=! TO 6 

112 IF KEWCRET 

113 NEXT V:0=l:RET 
128 C=k2:E=(IHT (R 

fl«l«48)t4)tC:PR 
T CSR 4: "BOWER 

121 6SB 258 

138 I=RRH*: IF IS. 7! 

E--8e2:PRT CSR 3 
; "SUPER" 



13! £=E>2M:PRT CSR 
3;"30i»JS',E:RE 

T 
148 IF SJ=«ID(1,7) 

THEH 143 

141 SI=IHD'.!,LEH(St 
HI) 

142 E=2e3:PRT E,SJ: 
RET 

!43 IF X=8;F0R M 
TO 9:PRT RIDC1. 
VltHKT V:H*1 

144 K=Xtl:E=fc3:PRT 
E:RET 

158 E=28:PRT CSR 5; 
"FLSSH",E:RET 

168 C=5B:E=«IHT (R 
l!NM8)«4)tC!:P 
RT CSR 5;'ST0PP 
ER" 

258 FOR V=1e2 TO E 
STEP C:PRT tilt 
;v:hext V:RET 
■ 



Un vrai casse-teteou I'abandon est un veritable echec. Ne 
trichez pas, ca serait un peu cavalier. 

Andre LEGRAND 

Mode d'emploi : 

Le jeu se deroule dans un tableau de quatre lignes et quatre colonnes. 
Le but du jeu est de replacer dans i'ordre alphabetique, les 15 cavaliers 
indices de A a O. La demierecase est libre et les cavaliers sedeplacent 
ccmme aux echecs. Le programme est ecrit en Basic Etendu et si ce 
n'est la presentation, peut ddnc etre adapte tres facllement. 



NlP-F tt 



ff£N 


?»=:;S',T i .r: 
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rs - 


KORHAL ;T ■ 




■;= '-'.-z in. l 


POKE 


'- 1 .' 


PEeroRE ■;■:. ■ n um 




COLOR = 6 






plot 


11.? = LOT 


1T.1 




PLOT 


11.6 PLOT 


1J K 




HLIH 


19,14 AT T 






HLIH 


[»).;* t- r .; 






HUH 


3,18 ft T = 


HLIH 


\z. 


HLIH 


-:..-; -■ is 


HLI 


1 ■ 


AT 19 

HUH 


5.13 ftT II 






HL l H 


= . 11 -" 12 






HLIH 


■: i *; - t i2 






HLIH 


-;.;•" ftT i ■ 






HLIH 


3.3 AT ;3 


HLIH 


in. 


HLt" 


5.-; AT 16 


HLIH 


10. 


HLIH 


9,16 ftT 17 






HLtH 


9.1*; - r i e 






HLIH 


9-1-; ft! 15 






HLIH 
HLIH 


?. 1-; i*T 2') 

3. IZ *T £1 






HLIH 


9.19 ftT 22 






HLIH 


?-l*5 *l LZ 






HI.IH 


5 ■ 1 ', ftT L* 








225 


HLtH •;. 


8 &T 23 


239 


FOP I - 


1 TO 20 HTAE 23 UT&B 1 






249 


HEXT 




243 


HTGE 8 


UTAH 1? PRINT 'PAR' 


239 


HTCE 3 


UTGB 21 PRIHT ' AMDPE LE 1 


RAMI 






160 


F« t • 


1 TO 1888 NEXT 


£78 


TEXT 




289 


HOHE 




29-) 


HTAE 3 

J E U 

MTAE 13 

'JT&E 3 


UTAB 2 PR.IMT "P E Q L E -i 


389 
303 




PfitH? "LA PABTIE SE JOCIE su 


P UH 


D6HIEP 4X4 " 


318 


UTAI io 


-- .-1' "...;„;-; ijEi.'-- ir:-r-'£r 


LES 


13 C&iJftLIEP.-: IH' 


320 


UTftB 12 


FPI'iT -DICES DE -C- A '9 1 


OAHS 


L'ORDM 


ALPHABE-* 


338 


UTAI I* 


PRINT "TIOUE. C'EST A DIRE 


AIHS 


■* 




3*9 


UTAB l« 


HFAB 14 PRINT -ftECQ- 


339 


«T«B 17 


HTiiE 14: PRINT -EFCH' 


369 


UTUE 18 


MT&E 14 PRIHT -IJKL- 


379 


iJTAB 19 


HTfiE 14 PRIHT 'HHO " 


389 


"TAB 21 


PPlNf -LES CAVALIERS SE OE 


PLACCHT COfiME AUX' 


398 


UTAJ iz 


PRIHT "E'tHECS - 


488 


cer (•% 


[f dt . -- THEH 409 



PUTIiiLISATIOII 



483 


IF A - 8 


THEN A 






498 


Tt<l.J> m 


HIQJ C A I . A , t > 




493 


IF LEH 


AC. . 1 


THEN TI- 


[ . J 




At GOTO 


510 






493 


IF A - 1 


THEN At 


■ RIGHT! -I. 


LEU CA«J - 


A> COTO 318 




388 


at - LEF 


1 ' Af.A 


- 1 > * 


RIGHT! 


. LEH (A* J - A> 






319 


MEXT J 








328 


HCXT I 








321 

322 










RE" JEU EH LU 


-HEHE 




323 
323 










SCALE- 2 


POT. 8 


MtOLOR 


- 3' 


HSP 








32« 


HT&B 25 


UTAB 9 


PRINT "S 


-- 'STOP 


32/ 


HTAE 23 


UTAE 18 


PRINT " 


T ">TEF 


Nf" 










339 


FOP [ - 


TO 4 






349 


FOP J - 


TO 4 






350 


HTAE 5 t 








PRINT r« I 


J'. 






5«e 


DRAU 1 e. 


33 l J 






* 


26 








378 


NEXT J 








388 


NEXT I 








383 


XDPfiU I AT 33 I J 


- 13.32 


1 4 




IK A = 4 








387 


HTAE 3 


TAB 22 






398 


PRINT -LEOUEL 0EPLACE2-UOUS '- 


S08 


CET R*< 


F PI - 


-;- THEN 


te;.!T 


HOME SOTO 1000 






693 


IF P« . 


■ THEN 


:oro 60* 




618 


IF R< » 


T" THEN 


G08U1 1300 


829 


IP ASC 
79 THEN 


ttat 4 si 

GOTO 898 


OP ASC 


. pi :■ 


638 


FOR I - 


TO 4 FOR 1 - 1 


TO 4 


IF T«i |,J) 


■ Rl THEN X = [ ■ 


t * J 


648 


NEXT J.I 








643 


IF I ABS 




. 1 AND 


ASS ■ 


- 


B> • £> OP ■ ABS 


i k - x :■ 


- 2 


AND UZ'. • 


- ■> ■ 


1 ) THEN 


GOTO S3 




SOTO 600 








638 


XDFAH I AT 35 t • 


- 13.32 


i :-: 



PRINT " - 
678 DPAU 1 AT 33 ! E - 13.32 t A 

* 26 

688 HTAE 5 I E UTAB 4 t A . 3 

PRINT R< 
698 Z* - T«<A.E> T»(A,E> . TI'X.Yi TUX, 
Y> ■ 2* A - X 8 - Y 
788 RI - ■- 
718 SC - SC * 1 
720 GOTO 688 

1008 PErt 

1018 PEU ABANDON 

1028 PEN 

1838 TEXT H01E 
1848 END 

1308 REM - - - 

1318 PEN TEPNINE I 

1328 PEN 

1338 T» = ■" 

1348 FOR I - I TO 4 

1338 FOP J . 1 TO 4 

1368 T» = T» « T!f I, J) 

1378 NEXT J 

1388 NEXT I 

1398 FOP J * 1 TO 11 

1608 IF HID! <Tt,J,l> ( > CHPt C84 

♦ J> THEN 1630 
1618 NEXT J 
1628 TEXT HONE 

1638 HTAB 3' UTAB 9 PRINT "VOUS AUG2 P 

EUSSI EN " rSCi ■ COUPS ' 

1648 END 

1638 TEXT HONE 



1668 



(TAB 3 



UTAB 



1678 PRINT -TOI Y EN A PAS CONtlAITRG OP 

DPE ALPNABETIOIJE- 

1668 FOP I - 1 TO 2808 NEXT I 

1718 GOTO 1080 

2888 REM — - 

2018 PEU TABLE DE FOPNE 

2020 PEH 

20 30 DATA 9. 1 , , 4 , . 43 . 43 . 43 . 43. 36 . 36 . 3 

9-68.36.39.33.39.33.33.63.62.54.43 37 33 

.62.62. 118. 9. 68 -88 .68.88. 88. 48. 69. 6 

2848 FOP I = 36664 TO 36999 

2838 READ A POk E I. A 

2869 NEXT 

2063 RETURN 

2070 PEfi - 

2088 PEN FIN PP8CPAHHE 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 - 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 
PRENOM : 
ADRESSE : 
REGLEMENT JOINT : 



□ CHEQUE 



dccp 



MATERIEL UTILISE : 
CONSOLE : 
PERIPHERIQUES : 



OTHELLOM 



Detendez-vous.concentrez-vous, le combat risqued'etre 
aide ! Un Othello ou I'ordinateur vous tiendra la dragee 
haute. 



Vous |Ouez contre rordinateur, apres avoir choisi le niveau du jeu et vo- 
tre couleur. Les lettres, sur les iignes horizontales. sont indiquees en 
double :ex ; DD. Par contrelorsque vous jouez, vous indiquerezD5. et 
non DD5 Vous passez avec (P) lorsque vous ne pouvez pas jouer Le 
nombre de coups joues, le temps de reflexion, sonl indiques. 

suite du 
listing du 
N17 ^ 

2353 IF((fl« = -B' ;*(□*?>)' CCfl« = 'N-)*CO=t J J 

G0T0151B 

2368 G0T02338 

2370 PRINT'B QUELLE NIUERU DE D1FFECULTE 




■'-. 

-•13168 
.3P3B 

■ ■ ■ . ■ 

■ : ■■■.. 



: ■ 



:c-fljTHEi«>CP>Fi>1 ^GOSL'BSt 



l,2,ou 3?" 
239B 5£T«*:JFfi*'---GOr0238a 
2398 IFA»="3"Th£NO='B:G0T0ISI8 
2488 IFM»-2-Thehn=2:G0T0lSie 
2418 lFft*'-|-TMEMn=l :G0T0151B 
2420 GO 102308 

2430 n&iz'F' :p*WB' -.sruiBU-e" ;n*r 
JOUE En :"; 

2448 G£TA:IFA=BG0T024?8 
2450 IFtfKl 3*CP>33GOT02478 

2468 rWi;PRINT"« OK,NIu£AU";ri;SPCC73:F0R 

1 =1 TO280;NEXT :G0TO2438 

2478 TI»="808Bea M :IFrMG0T03B88 

2400 A=8:CP=3 

2490 F0RX=BTOU:S=XCX3 

2580 RESTORE :FQR2=BT0?;R£APe 

2S1 IFPCSt£3 02TNENNEXT2.X -GOT0266B 

2528 U^S 

2530 U=IJ.£.DNPCU3G0T025S8,2S3B 

2548 NEXTZ,X=G0T0266a 

2558 fl=ft»l =F=0:FOSI=*I I I08B :5tft, I )=Pt I ) =M 

EXT I 

2560 f0RR=£->ST0U-£ST£PE;Sr.A,R3*l if-F*UtR 

3;N£XTR 

2520 1F2-?TMENN£XT2:G0T0263B 

2588 FDR2=2* 1 T07.READE --IFPCSi-ES 02THENNE 

XT2:G0t02S3e 

2590 U»E»S 

2688 U^»£:OmP(U)DOTO2&28,2800 

2610 N£XT2;GOTD263B 

2628 F0RR"E»ST0U-ESTEFE:SCfl,R3-l :F=FtU(R 

):NEXTR,2 

2630 F=FHJtS);J-P-l I SEA, S 1*1 

2640 lF0tACJ31O : TM£riACJ*13=P-CJ3;J=J-1 -GO 

T02B4B 

2058 Ptfl3»FiCtA3=S;flCJ'l 3-A:NEXTX 

2668 JFr>--0«3tO1BB8 

2678 lFn»2GOrO3550 



2690 P8=3 

2090 FQRF = 1T0P.:I»ACF3 

2738 FORJ-1 IT0B8:TtJ)-S(I,J):«EKTJ 

2718 Pl=0:G=B:n=a 

2720 FDRX=8r0iJ:S^J.CXJ 

2738 IFS(I,S)O0TmENNEXTX;GOTO3138 

2740 RESTORE 

2758 FQR2=0TQ7 ;REO0E ■ IFSC I ,St£3 <> 1 THENNE 

XT2,X:G0TQ313B 

2760 U=E»S 

2778 U*u*E:DnSU,u)G07P2??8,27SB 

27BB NEXT3,^-G0TO313B 

2798 0»0CI) =G-1 

2888 F0RJ=M lT083:TtJ3=Sa,J3:N£XTJ 

2310 FORR=EfSTOU-ESTEPE:rCR3=2:Q=Q-UCR] : 

NEXTR 

2820 !F2=7TH£NNEXT2:G0Ta28B8 

2B30 F0R2*2-M TO? iREADEUFTCS+EXM THENNE 

XT 2: GOT 02888 

2340 U-E^-S 

2850 W=Uf£:ONUW3GOTa28S0,297e 

2368 HEXT2 :GOTO2330 

2878 F0RR=ET5T0W-ESTEPE:TtR3=2:Q=Q-1JCR3 > 

NEXTR.2 

2880 a*a-UCS):TCS)=2 

2898 P2=B:M=-| 

2908 FDR1"=8TPU:U=Xr.T) 

2318 IFTCU3<>8TN£NNEXT1";GOTO3B30 

2920 RESTORE 

2330 F0R2=BT0?:REP.DEMFTCU»E3O2TH£NNEXI 

2,T:GOTO3090 

2948 l4=£tU 

2950 U'W.£;ONTCL13GOrO2970,2958 

2960 NEXTZ,r:GOTO3B30 

2970 K=0 

2388 FORR-E-.UTOU-ESTEPE ;«=K<U(R3 :NEXTR 

2998 IF2=-7THENNEXT2:GOTO3058 

3888 F0R2'2- 1 T07 'READS -- IFT<U»£ ) 02THENNE 

XT2;GOTO30S8 

3810 U-E«U 

3820 l4=U'£;ONTr.UJGOia3B40,3820 

3038 NEXT2:&OTG3850 

3048 FQRR*E'Urou-ESTEP£:K-K-UCR) =N£XTR.2 

3050 K=K.U(UJ;H-I 

30C0 1FPI <=KThEnnEXTX;G0T03I38 

3B78 iFK>P2TM£NP2='K;CK-U 

3880 N£XTY 



3140 IFFi>P«HI 
3150 NEXTF 
■ -.■■ 

3170 IFCDP>03t 
S3; : _';..Jl,: 
31 88 J»lNTCC/tB):J*»CHR«£C-ie*J*84J!IW-l 



3138 T 1 * = T J* 

3288 nUSIC"-fl_8" 

3218 PRINTftt:RESTDt>£--T=B 

3228 FOR2*BT07;REAO£:lJ=B 

3230 lFPCCt£3<>2TwENSEXT2:GOTO3300 

3248 U=2*E*C 

3250 IFPCU)=2THENU=U.£:G0TC>325B 

3263 IFPCU3"BTMENNEXT2=GOTQ33B8 

3273 F0RR=CT0U-ESTEPE:PCR3=! JUSRC623 

3280 S»3*R-S1B95-INTCR'I03*ti8:G-Ot235:P 

OKES,Q:POK£Stl,a:NEXTR;T^7tCR-C3'E-l 

3298 NEXT 2 

3388 NtOO3»N(O03*T-l iNt03»NC03-T 

33 IB RCCO3=RCO03»lJ«.CTI*3--R=RC0O3:G0SUBl 

918:RC003=R 

3328 Ri'5TR*(R(0033:0-COO-l. 53*20* 13 ^GOS 

UB18BB 

3338 IFFI=ITHENRETURN 

3348 JFN=l3->OTMENf : iU>24:GDSli934l0 

3358 G0T01SI8 

3368 NEXTX 

3370 2-0:FORJ»! 1 T0B8 :2=SC 1 , J 3 '2-1 . S :NEXT 

j:Z— 2:PRINU 

338e !FtZ>DP3+CCP*B3THENCP=etI):CP»2 

3338 1FI-1TH£NC=8 

3488 N£XTF:GOrO3l60 

3418 RESTOREiFCR I> ! TOW :RER0E iNEXTI 

342B FORX-lBT048STEPIB:FORT-lT04 

343B REn0E:UCX*T).£:U[Xt9-T)=E;UC3B-XtY3 

»E:UC99-X-T}-£ 

3440 NEXTT.X 

3458 FGRX'1BTO3BSTEP70 : F0RT»1 T06STEP? 

3468 OX-rT 

347B IFPCC3OBG0SUB3SBB 

3480 NEXTY.X 

3490 RETURN 



\Kl 80 



3580 RESTORE :FOR2*0TO7:RE(4OE 

3510 IFCCt£<1 I 3tCC*£>89 3TMENNEXT2:RETURN 

3520 IFCPBS(E3-18)tCflBS(E3>l )TtiENUCC+£3- 

58;G0T03S48 

3530 U(Ct£)-IB 

3540 K£XT2:RETURr< 

3558 P0»B>C»8 

3560 rORF-IT0ft-I-RCF3 

3578 Pl-D 

356B FORX-0TOU'S-XtX3 

3530 IFStI,S3O0TM£NN£XTX:GOTO3770 



■ 

-.OTT0363».3e5« 
^3278 
■ ■ . ■ .. 
3660 fORR*E>STOU-ESTE!»E:>0-vCR> ■ 
.3738 
,..,-.. .. ... 

N£XT2:G0TD373B 

359B W*£tS 

3733 IMME-'ONSl I,U]60T037M r 372a 

3713 NEX72:G0TD3?3a 

3720 FCRR-£fSTOU-£STEPE:0-O-UtR)iH£XTR,« 

3733 Q-O-UCS) 

3748 lF0<>P8Tl*ENN£XIF:C=CCCJ;G0T031Sa 

375B IF0<P17^^£^P1=I-:L = S 

3768 NEXTX 

3??8 IFP1JP8TMENPB-P1 :C»I :C1"CL 

3780 NEXTF 

3738 C=CCC)=G0T03ieB 

3888 T=B:f>-0 

3818 FORX-BTOU^S-XIX) 

3828 RESTORE ^FOR2*BT07:R£W)£-iFp[S*£3<>2 

THENNEXT =N£XT :GOT0337B 

3830 W-E-S 

3840 M-tHI .. •..•',3348 

3850 MEXT-N-:il -G0T03D7B 

396B K»6:F0RR = £-STOU-£ST£P£ :«"«•■-■;-: 

3878 1F2-71H£W£XT:G0703338 

38B8 FOR2-2'lT07-RECO£:lFP(S*E3<>r' ' 

XT IGO1O3930 

3B98 U-EtS 

398B W-U*£;ONPCM)GOTO3920.398e 

3918 NEXT:C.OT0333B 

3928 FORR=£*ST0U-EST£PE ;K-K*UCR3 ^NEXT :NE 

XT 

3930 K-K.UCS3 

3910 IfK>TTM£MT-Kin-B 

3950 lFKW-2TnEMCCf>)=£:fl*nr1 

396B NEXT 

3978 IFrt"BGOTO4B0B 

398B C-CtRNOO )*fl) 

3330 G0T03I8B 

48B0 PRINT^'B J£ NE PEUX PAS jOU£R":USRtO 

23 

4818 FORS-l0TOBBSTEP2iFORT-0TO7:S-SH 

4820 IFPCS3<)8TMENNEXTT,S;GOTO4B30 

4830 RESTORE ^FORI-STO? 'REM3E 

4010 IFPCS'£)<>lTH£NMEXT2,T,SiGOTO409B 

4050 U=2t£.S 

4060 1FPIU3-0THENNEXT2,V,S:GOTO4H3B 

4078 IFP[U3*irnENU-UfEiGOTO406B 

4088 S=88!T=?:2-?:NEXT2,T l S!OOTOISl0 

4090 PRINT'' TO! NON PLUS" 

4100 FORl-nO250!M£XI;GOTO20O0 ■ 



+ 



Suite de la page 3 



6000 


FOP J-l TO 2 




6CIO 


IRIll.Jt-TST(I.J) 




*O20 


NEXT J 




6030 


NCK7 I 




6040 


GOSUB 66/.0 




6OS0 


CALL CLEftR 




6060 
6070 
bOBO 


print "HESULTAT nr-r'F't;":F(j 


2-fIAI *MANCHC(S 


FOR I-l TO HJ 




hO90 


PRINT I,S£G«<TNJ»(TRI*I. 1 


1.1. I01f- "ITR 


falOO 


NF.tl I 




(.110 


PRINT ; : 




&120 


PRINT -APP11VF7 UNE fOUCHE 




6130 


CALI HFVC'J.V.W) 




61 4*3 


IF U-Q THCN t,i 10 




6130 






6JM 


IP NA>0 HiFN 2430 





6 1 TO 
A1S0 

/.!-■ ■ 


f-[ M 


REM • FIN I3E PART IE • 


6210 


REM 


'.. :■■ 


I .'-i i c ■ 




PRINT SEn»ITNJ*(TRI (1 . 1 • > . 


6340 


PRINT " CE MATCH"! I 


!,:■■.■• 


INPUT "REJOUF.Z-VfUI^, "iREP* 


(,76(i 


IF ftEP*-"0" THEN 2210 


6270 




/, :,.■, 
6310 


RCM 


r<EM • DES9IN TAPIS • 


REM 




FOR J-2 TO 14 


6340 


CALL. HCHAP(J,24, 120, SJ 




NEXT J 


6360 


RETURN 


6390 


REM 


REM .AFFItlHAGF. 17-19- 



,A "..I 
-S4 4--I 
64S0 

1 6460 
6470 
6480 
64*0 
4300 
6310 
6520 
6330 
ftS40 
■.-.'.■. 
(.360 



REM 

FOR J" I TO 

CALL MCHARd r,23+J,ABC(aiO»(MI«.J, 

CALL HCMAR<16,23*J,A8C(9SMtM2*,J, 

CAI i HO«RII».23*J,AaciaS9»(M3t,J, 

NEir j 

CAU. S0IJNllt-.'>,B90,01 

RE r URN 

REM 

IVFM 

REM •EFFACEMENT1B-19. 

REM ••••• 

f(EM 

for J-m to I*? 

i.i CMAR<J, 24, '■: ,81 

NEXT J 
FT rl ii;ti 

REM 

REM • TEMPQRIr.Aril]N • 

REM 

REM 



6690 
6700 
6710 



RETURN 

REM 

REM ••< 

REM • 
REM •*■ 
REM 
P-l 



6740 
6730 
6760 



i l-p 
i J-l 

SJ-IRIIJ, 1) 

!!ti-TRI (J. 2) 

I-l. I 

IF I 'NJ THEN 67913 

IF TRKt,2»'SS THEN 6730 I I M 6760 

1H! !.J. I l-TRI (P. 11 

IRt rj, 21 ami (P.2I 



I IP, 



-BJ 



-.(i.'-j mi tP, 2}»8i 



BISCRU 



Aidez Noel el Leon a aliment er la chaine de chez BISCRU. 
sinon iis sontcuits.Attention.au niveau 3cen'est pas de la 
tarte! 

Roger ZENSS 

Mode d'emploi 

Utilisez les touches A, Z. +. > pour dinger Leon et Noel, apres avoir 
choisi le niveau de jeu. la touche ESC permet de demarrer le jeu. 



90 HUME 

■ 

n Ren adresse de la table ce f 

CRME 
BO IF SEEK (24576J - 24 THEN 14 

90 P0> E 232,01 POKE 233,96 
10O REM 

110 REM CHARGEHENT TABLE'FORME 

120 D* - CMR* 14) 

130 PRINT D*-BLOADB1SCRU.OES5" 

140 P-EM 

130 GOSUB 360O 

160 PRINT CHR* (71 

170 REM 

180 REM INSTRUCTIONS * NIVEAU 

DE DIFFICULTE5 
190 INVERSE ; HTAB 9: VTAB 22: PR 

'■NOEL ET LEON A L'USINE" 
200 MTAB 3: VTAB 24: PRINT "VOUL 

EZ-VDUS LES INSTRUCTIONS. 0/ 



210 


BET A* 




220 


IF ASC <A*> = 79 THEN 

zso 


BOTO 


230 


IF A5C 'A«l - 73 THEN 
360 


BOTO 


240 


GOTO 210 




2SO 


GCSUB 2210 






GOSUB 2400 




270 


REM 




2B0 


IF DO - 1 THEN GOSUB 3 


*70: 


290 


GOSUB 2940 




300 


SET INITIAL ISAT IONS 


)ES 



HOC- HCOLOR- 3: ORAM E AT V.l 

I 
1110 EM ■ E 

n:o u - u • i 

1130 R - 3 

1140 RETURN 

1130 REM SI LE GATEAU EST 

BAS A DRD1TE 
1160 IF W < > 160 THEN N - : 

3320 
1170 HCOLDR- O: DRAW EW AT v, 
HBO V - 226:E - 2 
1190 HCOLOR- 3: DRAW E AT tf.l 
120O MCOLOR- O: ORAM 3 AT M«C 

<G) 
1210 HCOLOR- 3: DRAW 3 AT MIC 

(Gl 
1220 EH - E 
1230 HCOLOR- O: DRAW EW AT V.W 
1240 V - 233:E - 1 
1250 HCOLOR- 3: DRAM E AT V.W 
1260 EW - E 
1270 RETURN 
1280 REM SI LE GATEAU EST AU 

MILIEU A DROITE 
1290 IP H < > 130 THEN M - 2: GOTO 
3320 



IS I ■ 



160:'. 



■ 233:1 



0:DV - l:EM - l:ZZ - ll:x: 

tl:PP - O 

DRAW I AT X.Y: DRAM 1 AT V 

DRAW ZZ AT 141,163: DRAW > 
134. 133 

DRAM 3 AT ISO. 23: DRAW 3 ( 
ISO, 17: DRAW 5 AT 130,11 
REM DEBUT DU CYCLE 



380 


IF ASC <A»J - _v MEN 


390 


GOTO 370 




60T0 1990 


410 


REM 


420 


HCOLOR- Ol DRAW 3 AT M 




>,NIG - I) 


430 


IF G - I THEN HCOLOR- 






440 


PRINT PEEK t - 16336) 


430 


HCOLOR- 3: DRAW 3 AT M 



390 

600 



640 
690 
660 



PRINT PEE* ( - 16336) 

GOSUB 1910 

ON R GOSUB 610,640,670,770,1 

970 

GOSUB 5!0 

RETURN 

REM SI LE GATEAU SE TROUVE 

EN BOUT 

IF G - 7 THEN GOSUB 1160 

IF G - 16 THEN GOSUB 1520 

IF G - 23 THEN GOSUB 1290 

IF G - 34 THEN GOSUB 1640 

IF G - 43 THEN GOSUB 1410 

IF G - 52 THEN GOSUB 1760 

RETURN 

REM SI DN A APPUYE SUR 

LES TOUCHES 

REM ON VEUT MONTER A 

GAUCHE 

IF V ■ 40 THEN RETURN 

GOTO 860 

REM ON VEUT DESCENDRE A 

GAUCHE 
IF V - 160 THEN RETURN 
BOTO 930 

REM ON VEUT MONTER A 
DROITE 

IF W - 70 THEN RETURN 
IF W - 16':' FHEN 1010 
HCOLOR- Ol DRAW EW AT V,W 



7(0 HCOLDR- •; DRAW E I 

720 EW - E 

730 W - W ■ I 
740 R - 3 
7SO RETURN 
760 REM ON VEUT [ 
DROITE 

770 if w - i6" then if rum 

780 IF M - 70 GOTO 1080 

790 HCOLOR- Ol DRAW FW Al V.l 

BOO ZSBif - I 

81" HCOLOR- Z: DRAW E AT V,W 

820 EW - E 



I 



ij.i., n ■ ■• 






BOO 1 1 <•><■<> 






G60 HCOLOR- 




ORAM 0' r.T 


870 D - 1 






800 HCOLOR- 


~> 


DRAW D AT X 


890 DV - 






900 V - V » 






010 R - S 






92'.' RETURN 






■/ ■■ .I' r|| :..!■ 




DRAW DV #1 


940 D - 1 






93 .Hi 0K> 


3i 


DRAM I) AT X 


960 DV - D 






970 t - v • 






980 R " 3 






WO RETURN 






1000 MCOLOR 




DRAM 11 •"'! 


B9 






L010 HCOLOfl 




DRAM EH Al 


1020 V - 226 


I 




■ ■ 


' 


DRAW E AT 


1O40 EW - E 






IOJJ0 H - w • 




2 


IO60 R - 3 






RETURN 






' <• 




DRAW EM At 


1 ■,;.. | - J 







■ ■ 
II 

I ■ ■ ■ 

: ■ ■ Mil 

■,., . 
I IF G ■ 39 '■'■ 

■ ■ 

213 II IJ THEN 21 

■ ■ 
■ - OiG - f. - | l,FF - II 

B - G * 39 
: IF G - 39 THEN GOSUB 2610 

It . IB 420 

IIS" GOTO 1990 
. 190 RETURN 

22O0 PEM ir 

2210 rcn 

2220 hijmE 

2230 PRINT " NOEL ET LEDH TRAVAI 

LLE TOUS DEUX CHEZ" 
2240 PRINT : INVERSE : HTAB [7 : PRINT 

"BISCRU": NORMAL 
2230 PRINT : HTAB 7: PRINT "CEUR 

JOE CONSISTS A SAISIR' 
2260 PRINT : PRINT "LES GATEAUX 

ET A LES REMETTRE SUR LA ■ 
2270 PRINT : PRINT "CHAIPJE A L"A 
IDE DES TOUCHES SUIVANTES" 



1 300 HCDLOR- 
1310 E - 2 

1320 HCOLOR- 



1340 



DRAW EW AT < 
DRAW E AT V. 
DRAW 3 AT M 



DRAW EW I 
DRAW E Al 



".,.-'" 


HCOLOR- Ol DRAW 3 AT 




(8) 


1S80 


HCOLOR- 3: DRAM 3 AT 
CO) 
V - V - 30iDY - D 


1390 


1600 


HCOLOR- 0: DRAW DY A 


1610 


Y - Y + 30 


1620 


HCDLOR- 3: DRAW D AT 


1630 


RETURN 


1640 


IF Y < ) 100 THEN M 




3320 


1630 


REM SI LE GATEAU E 




MILIEU A GAUCHE 


1660 


HCOLOR- 0: DRAW DY A 


1670 


D - 1 


1680 


HCOLOR- 3: DRAW D AT 


1690 


HCOLOR- O: DRAW 3 AT 




<G) 


1700 


HCOLOR- 3: DRAW 3 AT 



1 720 HCOLOR- 



173' 



' AT 1 



DRAW D AT X.Y 
THEN M - 1 1 GOTO 
EST EN 



1740 HCOLOR' 
1730 RETURN 
1760 IF Y T 

3320 
1770 REM < 

HAUT A GAUCHE 
I7BO HCOLOR- Oj DRAW DY AT 
1790 X - 26iD - 2 
IBOO HCOLOR- 3: DRAW D AT : 



1820 HCOLOR- 3i 



ISS< 



DRAW DY 
DRAW D I 



I860 HCOLOR- 
1870 DY - D 
1 880 RETURN 
I B90 REM 

1900 "■<" A T-ON APPUYE sur- UNB 



1910 IF PEE) ' - 16364) 128 rHSN 

F-f rURN 
1920 P - REEK < - 16 B4) I POM 
!'. M,0 

1930 IF f -. 193 THEN I - 6Q*P. 



1940 HP- 218 I 

- 2 
1930 II ' 107 1 

I960 li F 



I ■ 



'■• . i R 



THEN ■ 



i" ■'■■ RE ruftN 

1980 il M [NTRODUI ' ION • TOIl I 

I i I i 

1990 B i. . ,.,: ■ r l • (i ■ i 

I' ■■ 39 ".I N '■ '■ 39 ■ 

. f , n8) • l 
2010 If - 39 fi'i'i QOBUB Z61C 
. i.i[. am 
ii H !■! -i 050 

2040 BOTO : 

. 030 BB Old Q MTIlAA - MM 
20*0 u^ • " T, '( NO B * '■'• 

i ir- i, 34 '"I N BOSUB 2610 



UCTIOriS 



■ 

' 
■ . . . . 

It, 11, 
1 ■ . ■ ■ 
.34 

READ IX, ■ ■ ■ ■ ■ ■ . ■ 

Z: HF-lOT : 
FOR X - 1 TO 3 
PE"t> tX,Il 

■ ■ . ■ 
NEC1 . 
REM 

DRAM 4 Al I30,15| HELOT 1^'' 
.:= TO 160,291 ['PAW 5 AT is-.. 
,23: DRAW 3 AT ISO. 17: DRAW 
3 AT ISO, II 
DRAW 7 AT 13,25: DRAW B AT 
DRAW o AT 33, 73 I DRAW 



CRAW 7 I 






RIN 



RIN 



IDER NOS DEUX J 



2320 _ 
2330 



"CDRRECTEMENT LEUR MI 



i TROIS REPR 



io e 

' DRAW 9 AT 123.'.' 

iri-.'j: draw a at 

10 ^T 130,0 
' DRAM 10 AT 231,23: DRAW 9 AT 
240.23: DRAM 8 AT 249.23: DRAW 
7 AT 25B.25 

1 RETURN 

REM COUP MANCUE 
■ HCOLOR- O: DRAW 3 AT MIG1.N 



REM HONTEE DE MUSI DUE 
FOR Z - S TO 253 STEP 3 
POKE BOS, 1: POKE B06.2 
CALL B07 



3420 IF PP 



1 1 THEN 

>. 1 1 

1 2 THEN 



HCOLOR - 
HCOLOR- 



1 330 w - W - 3< 
1 360 HCOLOR- : 

1380 HCOLOR- 3: 

1390 RETURN 

1400 REM SI LE GATEAU EST EN 

HAUT A DROITE 
1410 IF W 1 > 70 THEN H - 2: GOTO 

3320 
1420.. HCOLOR- 0: DRAW EW. AT V.W 
1430 E - 2 
1440 HCOL0R= 3: DRAW E AT V.W - 

1450 HCDLOR- O: DRAW 3 AT M(G),N 

(G) 
1460 HCOLOR- 3: DRAW 3 AT M(G) ,N 

IS) 
1470 W - M - 30:EW •= E 
14B0 HCOLOft= Ol DRAW EM AT V.W 
1490 W - W * 30 

1300 HCOLOR- 3: DRAW E AT V.W 
1510 RETURN 
1320 IF V < > 160 THEN M - I: GOTO 

3320 
1530 REM SI LE GATEAU EST EN 

BAS A GAUCHE 
1340 HCOLOR- 0: DRAW DY AT X.Y 
1350 D - 1 
1560 HCOLOR- Z: DRAW D AT X.Y - 



2350 


GET A» 


3430 


IF PP - 3 THEN HCOLOR- 0: 


2360 


IF ASC <A«) - 27 THEN 2380 




3 AT 150,23: GOTO 2730 








HCOLOR- 0: DRAW 6 AT 44. IB 


2370 


GOTO 2350 




: DRAW 6 AT 225, 187 




RETURN 


3430 


HCOLOR- 3: DRAW 3 AT MIG * 


2390 


REM NIVEAU DE DIFFICULTE 




1) .NIG * 1) 


2400 


REM 


3460 


RETURN 




HOME 


3470 


REM ON EFFACE TOUT ON 


2420 


REM 




RECOMMENCE 


2430 


NORMAL : VTAB 5: PRINT "11 


34B0 


POKE 49237.0: POKE 49234,0 




LORSOUE LE DECORS SERA PLANT 


3490 


POKE 49239,0: POKE 49232.0 




E . VOUS DEVREZ TAPEZ • ES 


3SOO 


RESTORE 




C" POUR COMMENCER." 


3310 


HCOLOR- 


24 40 


VTAB B: PRINT "2) EN FIN DE 


3520 


FOR Z - 1 TO 39 




PARTIE.'ESC VOUS PERMET DE 


3330 


READ M(Z>.N<I) 




REJOUER. " 


3340 


DRAW 3 AT M(Z) ,N<Z) 


2430 


INVERSE : VTAB 21 1 PRINT "H 


3350 


NEXT Z 




IVEAU DE DIFFICULTE DESIRE'l 


3360 


DRAW 1 AT X.Y: DRAW 2 AT V 


2460 


GET A» 


3570 


DRAW ZZ AT 141,105: DRAW X 


2470 


Z - VAL (A») 




AT 134, 1B5 


24B0 


IF Z < 1 OR Z > 3 THEN 2460 


33B0 


DRAW 6 AT 223, 1B7: DRAW 6 


2490 


G - OiAA - OiEE - 0:FF - 




44,187 


2500 


BB - INT ( RND (1) • 1S1 - 


3390 


RETURN 




3 


3600 


REM PRESENTATION DU DEBUT 


2310 


IF BB - 19 THEN 2500 


3610 


INVERSE 


2320 


CC - INT < RND (1) «5) * S 


3620 


FOR Z - 14 TO 26 

VTAB 6: HTAB 15: PRINT "»B 


2330 


IF BB + CC - 19 THEN 2320 




ENVENUE*" 


2S40 


JJ - INT ( RND (1) • 3) * 5 


3640 


VTAfl B: HTAB 19: PRINT "-A- 



DRAW 
DRAM 
DRAW 



2690 HCOLOR- Oi 

85 
2700 HCOLOR- 3: 

34, 183 
2710 XX - XX * 1 
2720 RETURN 
2730 GET A» 



COMPTABILITE POINT 
: - 20 THEN GOTO 2660 
O: DRAW ZZ AT 141.1 

3: DRAW ZZ » 1 AT I 



DRAW ZZ AT 14 

DRAW 11 AT 14 
DRAW XX AT 13' 



3650 VTAB 12: HTAB Z: f 

3660 VTAB 14i HTAB Zt I 

3670 NEXT Z 

3680 VTAB 13: HTAB 14: 

3690 VTAB 13: HTAB 26: 



- 27 THEN 2760 



2EI20 
2830 
2840 



■ GOTO 2730 
> TEXT t HOME 

• INVERSE : VTAB 21 1 PRINT "V 
OULEZ-VOUS REJOUER 7 0/N" 

i IF ASC (At) - 79 THEN OD - 

I i HOME ! GOTO 170 
i IF ASC <A») - 78 THEN NORMAL 
: HOME i END 
REM CHEMIN DES GATEAUX 
DIM f 



FOR ) 
READ P 



■ 1 TO I 
:X) ,N(X1 



:.■".'■ 



i on 



IMPLANTATION ROUTINE 
■ 807 TO B27 



2080 READ J 

2890 POKE 1 . J 

2900 NEXT I 

2910 RESTORE 

2920 RETURN 

2930 REM TRACE DU DECORS 

H0R2 i HCOLOR- 3: SCALE- 



RESTORE 

FOR X - 1 TI 

READ XX, Z I 

DRAW 21 AT ; 



DRAW 24 i 
DRAW 22 . 
O 52 



2940 
2930 

2970 

2980 
2990 
300O 

S.ZZ 
S010 READ XX, 11: 

I. 7.1 
3020 FOR X - 8 1 

' || ah xx, ZZ 

3040 IF X - 16 THEN 

GOTO 31 SO 
303O IF X - 17 THEN 

GOTO --I5' 
1060 IF X - 34 THEN 

T30T0 3150 
■••/•• IF I - ■■', lit! N Ml', 111' "I /<■: 

OOTO 3130 
3080 IF X - 32 THIN r.njin | I COl 

OOTO »ao 

3090 IF I - D THEN GOMJl" HlWi unili 

1 1 31 ■ 

3100 IF X - 23 THEN GOSUB JIHOi 

GOTO 5130 

11,, |i v i 26 li" N ("■<!'. '■'" 

BOTO 1130 
-.,; .. n , 43 THEN 

OOTO 3ir," 

:i . 44 rm 'i 008UB JIBOl 

BOTO II! 

5140 DRAM 23 "' »*.^z 



."■'"■' 


Z» - "BISCRU" 




3710 


Z - INT ( RND 11) • 6) 




37 20 


A* - MID* <Z«,Z. 1 ): Z - 

1 : GOSUB 3790 


* 


3730 


C« - M1D« (Z»,Z. 1 ) :Z - 
I : GOSUB 3790 


+ 


3740 


E» - MID4 (Z».Z, 1):Z - 
1 : GDSUB 3790 


* 


3730 


B» - MID* <Z*.Z. I):Z - 
Il GOSUB 3790 


* 


3760 


in - MID* (Z«,Z. 1 > I Z - 
1: GOSUB 3790 


* 


3770 


F4 - MID* (Z*. Z. UiZ - 
1 ! GOSUB 3790 


* 


3780 


GOTO 3810 




3790 


IF Z > 6 THEN Z - 1 




3800 


RETURN 




3810 


VIAB 2: HTAB IS: PRINT A* 




VTAB 2: HTAB 25: PRINT 




3830 


VTAB 10: HTAB 10: PRINT 


C« 


3B40 


VTAB 10: HTAB 30: PRINT 


D* 


3B30 


VTAB IB: HTAB 15: PRINT 


E* 




VTAB IB: HTAB 25: PRINT 


F* 


3870 


GDSUB 4020 




SB80 


VTAB 2: HTAB 13: PRINT 
G* - A*: GOSUB 3940 


"' 


■!'■■'■ 


VTAB 2: HTAB 23: PRINT 
IT* - B*: GOSUB 3940 


"1 


3900 


VTAB 10: HTAB 10: PRINT 
:G» - C*: GOSUB 3940 




3910 


VTAB 10: HTAB 30: PRINT 
:G» - D*i GOSUB S940 




-.-,.■,, 


VTAB I8t HTAB 13l PRINT 
:G» - E«J GOSUB 3940 




-■'' SO 


VTAB I8t HTAB 25! PRINT 
iG* - F* 




3940 


IF G* - "8* THEN E - 15 




1930 


IF G* - "I" THEN E - 17 




3960 


IF G* - "S" THEN E - 19 




3970 


IF G* - "C" THEN E - 21 




3980 


IF B* - "R" THEN E - 23 




1990 


IF G* - "U" THEN E - 25 




4000 


VTAB 13i HTAB Et PRINT G* 


4010 


PRINT CHftt 17) 




•l ■.-.-, 


FOR S - 1 TO 300: NEXT B 


4030 


RETURN 




4040 


DATA 269,83. 269, 100 


769 




. 115.269. 130.269, 145.269 


16< 




,235. 160,213. 160, 195, 160 


175 






160 



i 3170i 
GOSUB 51701 
BOSUB II 'Ol 



,95, 160.75. 160,35. 160 
I DATA 55, I30, 75. 130, 95, 

i JO, i 13, i JO, I S3, i '". 133, i '". 
I '■.. i SO, 193, 130. 213. I SO, 213, 

i r'".. !"". t /-.. Li... i-,-,. ]-.... 

133. 100. 113, 100 

> DATA 93,100, 73.100. 33.1 
00,33, ""'. ''•. '".''■'. •■". 1 I - '- '". 

i 3, '■■. IBS, '0, i '3, .'". 193, /". 
. ■)'-. '■■, 15. 4u, 195, ■!!>, I Z5,4ii, 
133, 40, i -..*'<, 1 13,40,93,40,7 
3, 40,53, ')■'. 13,40, 1,40, 1,33, 1 
70, I .ii-,. i , 100. I . 1 13 

> DATA l 73,48, 192, 1 -r., 208,0 
3, 20*, ■ '.- 1, ■"■'.■'. 

'.. i 74, 18,0 I, ■'■. 19,03,96 
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600B- 8D 01 

6010- 83 02 

60 IB- 06 02 

6O20- 18 03 

602B- 3B 03 

6030- DB 03 

603S- 49 DA 

6040- DF 4A 

6048- B9 DB 

6030- 4A 09 

6038- DB DB 

6060- 2D 2D 

6068- DB 3F 

6070- 6D 6D 

607B- 3F FF 

6080- 2D OD 

6088- DB DB 

6O90- 6D 29 

609S- DB DB 

60AO- 2D 4D 

60A8- DB IB 

60B0- 40 29 

60BB- IB 3F 

60C0- 29 6D 

60C8- 3F FF 

60D0- 49 49 

60DB- IB 3F 

60E8- 3F IF 

60FB- FF DB 

OO- 2D 2D 



O- OD 6D 



:0- 6D 29 
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DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIELdu MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



b de plus! 
Rten de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quel que chose 
de different : nous organisons 
un concerns permanent tous 
les mois et tous les trimestres ! 
Et avec des pri x dignes des pro- 
grammes que vous allez nous 
envoyer ! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HE8DOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANCAIS. Si 
voire programme n'est pas tout 
a fait au point, un de nos spe- 
cial istes vous dira comment 
1'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous sutfit de 
nous envoyer vos programmes 
accompagnes du lion de parti- 
cipation ainsi que tout es les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement ; 

ART. 1 : HEBDOGIC1EL organise 
de facon mensuelle et trimes- 
trielle un concours dole de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART 2 : Ce concours est ouvert a 
tout auleur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaclion de noire 
lournal constilue I'acte de can- 
didature. 

ART. 3: La redaclion d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de I'originalile les logi- 
ciels qui sont pubiies dans le 
journal. 

ART. 4: Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuel e! 
trimestriel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remisau 
plus lard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 , rue des Hal les 75001 Paris. 
ART. 8: HEBDOGICIEL se reser- 



ve le droit d'inlerrompre a tout 
momenl le presenl concours en 
en avisant les lecteurs un mois 
avanl. 

ART. 9: La participation au con- 
cours enlraine ('acceptation par 
les concurrents du presenl re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 

FOY - 75008 PARIS. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus po ur un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depoutllement du vote. 



BON DE PARTICIPATION 



Norn ; 
Prenom . 
Age : 
Adresse : 

n" telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation nt 
une copie d'un programme existant. Ce programme reste ma pro- 
priety et j'autorise HEBDOGICIEL a le publier. La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page enliere sera remunereau prorata de la sur- 
face occupee). 
Signature obligatoire : 
(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Descnptif Detaille du Materiel uti- 
lise, d'une Notice d'Utilisation du Programme, et d'un emballage 
timbre permettant la reexpedilion du materiel non public 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Indiquez sur le support 
magnetique lui-meme votre 
nom. le nom du programme et le 
materiel auquel il est destine. 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'ApplesurPC 1500. 

• Notez dans les premieres 
lignes de votre programme, sous 
forme de REM, votre nom. le nom 
du programme et le materiel 
auquel il est destine. Nouspour- 



rons ainsi reperer facilement fes 
listings, une lois sort is del'impri- 
mante. 

• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement difierents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

♦ Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme. Votre lettre d'accom- 



separes car traites par d'autres 
services. 

• Joignez. si possible, un listing 
du programme et un organi- 

• Enfin.lefindufin.expliquezles 
particulates de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEOUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
cle" de Janick TAILLANDIER. 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HEWLETT-PACKARD une adhe- 
sion gratuite a son club. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CED RS . 232. C. 



Vous avez sans doute remarque que la grille de votre concours mensuel nefigurait pas dans lenumero 17. Vousavez 
egalement remarque que le nombre de pages eta it passe de 16a 20. Vos programmes deviennent tenement perfor- 
mants, qu'il nous faudra sans doute bientot passer a 24 pages, pour pouvoir tout caser. 
Soyez rassure, la grille est la, les concours continuent de plus belle ! 



AUX URNES 





N-13 


N-14 


N°15 


N°16 


APPLE II 


MINI-LOGO 


SOLITAIRE 


FICHIER D'ADRESSES 
(1) 


FICHIER D'ADRESSES 
(2) 


CASIO FX 702-P 


PRINCE DES ANNEAUX 


BELOTE 


COSMOS 99 


ANTREDEJANDS 


COMMODORE 64 


GESTION FICHIER 


BOMBARDEMENT 


INDIANAPOLIS 


SLALOM 


COMMODORE 
VIC 20 


MISSION SUICIDE 


SAUVETAGE 


MISSION 


POURSUITE 
INFERNALE 


GOUP1L 


EMPRUNT 


EDITEUR DE TEXTE 


CONTADET (1) 


CONTADET (2) 


HP 41 


F1 


PWR 


LEON 


SYSTEME LINEAIRE 


MPFII 


OBSTACLES 


BOWLING 


MINUSCULE 


NERKA 


ORIC1 


KRYPTON 


LES DAMES 
ANGLAISES 


REDEFINITION DE 
CARACTERES 


TAQUIN 


PC 1211 


BANDEROLLE 


MOTO DE SAUT 


BLACK-JACK 


TRESORS ET 
MONSTRES 


PC 1500 


BOWLING 


DONNEES 


SOUS-MARIN 


DOMINOS 


CANON X-07 


MORPION 


METEORES 


FRANCE 


TOUR DE HANOI 


MZ80 


DES ILLUSIONS 


F1EMONTAIS 


PROGRAMME 
MATHEMATIQUE 


GUERRE SPATIALE 


ZX81 


ELECTRONIQUE 


KINGDOM 


JEU DE DAMES 


YAMS 


TRS80 


PROF 80 


ECLUSE 


SAVE-DISKO) 


SAVE-DISK (2) 


T198/4A 

(basic simple) 


MONSTRE& 
CHEVALERY 


TISSAGE 


TRAVERSEE DE 
LA GALAXIE 


ETUDE DE 
FONCTIONS 


TI99/4A 

(basic etendu) 


COURSES DE 
VOITURE 


ROMEO ET 
JULIETTE 


LOTO MATH 


DESASSEMBLEUR 


TO 7 


PAC-MAN 


CREAT 


ISOMETRIE 


OTHELLO 



SOLUTION DE L'HIPPOREBUS : 

10 FOR 1=1 TO B 

20 READ X 

30 PRINT CHRS! I) t 

40 NEXT I 

50 END 

60 DATA 72,65,82,68, 

87,65,82,69 ■ 




DATE LIMITE D'EN- 
VOI DES BULLETINS 
DE VOTE: JEUDI 16 
FEVRIER, MINUIT. 



Abandonnez quelques instants vos claviers et prenez vo- 
tre plus belle plume pour remplir le bulletin de vote ci- 
contre. La redaction d'Hebdogiciel compte sur vous ! 
La marche a suivre est simple : 

- Reperez dans la grille ci-contre le programme pour le- 
quel vous voulez voter ainsi que celui pour lequel vous vo- 
tez en second (le second nous permettra de rendre plus 
equitable la formule de choix du gagnant). 

- Reportezlenomdecesdeux programmes surlebulletin 
de vote. 

- Inscrivez vos nom et adresse sur le bulletin de vote. 

- Expediez-le a HEBDOGICIEL, CONCOURS MENSUEL, 
27, rue du General Foy, 75008 PARIS, avant le jeudi 16 fe- 
vrier a minuit. 

II est fort probable que ceux qui participent au concours 
feront voter leur papa, leur maman, leur cousineet la tota- 
lite de leurs amis et relations pour leur programme. Nor- 
mal I Mais comme chacun d'eux fera la meme chose, cela 
n'est pas bien grave ! Toutefois, toujours dans un souci 
d'equite, nous n'accepterons que les ORIGINAUX du 
BULLETIN de VOTE ; pas de photocopies, cela serait trop 
facile ! 



BULLETIN DE VOTE 



A renvoyer avant le 16 fevrier minuil a HEBDOGICIEL. 
concours mensuel, 27, rue du General Foy, 75008 
PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME : 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME : 

MES COORDONNEES POUR LE TIRAGE AU SORT 
DES CALCULATRICES CASIO : 



NOM ET PRENOM : 
ADRESSE : 




Patois 
basic 



Dur&e. F - Frequence el V - Volume 

La duree eg! en mitleme de secondes. la (requencecorresponda la fre- 
quence de la note (da = 110) et le volumevariede0a30 



Uadaptation d'un programme d'un ordinaleur X sur un ordinateur Y 
n'est pas toujours chose aisee. 

A pnori, presque tous les ordinateurs individuels sont programmables 
en basic, langage theoriquement standardise. 

En realite, et le basic par lui-meme n'est pas en cause, chaque ordina- 
teur possede son basic "etendu" qui reste tres different des autres. 
Hebdogiciel vous aide a realiserl'adaptation des programmes qui vous 
interessent en publiant, chaque semaine et pour chaque ordinateur, un 
resume des particulantes du basic concerne. 
Pour les mordus du langage machine, aucune solution de ce type n'est 
envisageable et pour cause. 

Bien entendu, remarques et ajouts seront les bienvenus afin de com- 
pleter petit a petit ce panorama des patois basic. 
Cette semaine : TEXAS Tl 99/4A (2 efT,e partie). 

Le Basic du TEXAS est relativement puissant et les appels a des sous- 
programmes en langage machine ou a des PEEK et POKE sont prati- 
quement inexistants. 

Les instructions suivantes couvrent pratiquement toutes les particula- 
ntes du TEXAS. 
CALL S OUND (D. F V) permet la production de son, avec D = 



Instructions specifiques 
MAX (N1. N2) 



M1NIN1.N2) 



donne la plus grande valeur des deux nom 

bres NI et N2 

donne la plus petite des deux valeurs N] s 

N2. 



donne le nombre PI avec 11 decimales 
(Pl-3.t4l59265359) 

POS (CH1, CH2, N) donne la premiere position du premier ca- 

ractere de la chaine 2 dans la chaine 1 
La recherche debute a la position specifiee 
par N, POS donne si la chaine n'est pas 
trouvee. 

CALL KEY (TVR.VS) Affectea VR (variable deretour) lecodedela 
louche pressee. 

La valeur affectee depend de la touche spe- 
cifiee. Si !a touchevaut 0, Tent ree est a recep- 
tee de tout le clavier et la valeur de VR est le 
code ASCII de la touche pressee -1, Si la tou- 
che vaut 1, 1'entree est acceptee de la gau- 
che du clavier, si elle vaut 2 de la droite. 
La variable VS (STATUT) contient Osi aucune 
touche n'a ete pressee. -1 si la touche pres- 
see est la meme que !a precedente, 1. 
Si une nouvelle touche a ete pressee. 

CALL JOYST (T RX. RY) renvoie la position des leviers de la manette 
de jeu, ou RX est en position X, RYla position 
Y et T le numero du levier. 

CALL SAY (CH, CD) permet de prononcer des chaines de mots 

CH lorsque le synthetiseur de parole est 
connecte. 

CALL SPGET (CH. CHR) effectue la conversion de la chaine CH en 
chaine CHRprononcable par le synthetiseur. 

RANDOMIZE N Reinitialise le gener'ateur de nombres alea- 

toires. Si N est present, la meme sequence 
de nombres aleatoires est produite. 

RND Donne le prochain nombre aleatoire, qui est 

superieura Oet inferieural 

RPTS (CH, N) permet de creer une chaine qui est n fois la 

chaine CH. 

DISPLAY affiche des donnees a I'ecran. 



IMAGE CHF 
OPTION BASE 



SUBEND 
SUBEXIT 



permet de defmir un format cfaf-chago pour 

1'impress'on avec USING. 

permet de specifier le plus pelrt irvofce tie 

chaque matrice. Loption par defaut est 0. 

I'autre option est 1, 

appel a un sous- programme avec lisle de 

parametres 

Fm dun sous-programme 

permet de quitter un sous-programme avant 

sa fm par SUBEND ■ 



HIPPDCAMPES AU &AIN 

OEUVRE DE C.&IGO (1984) 



GRDUPE DE CINQ HIPPOGRENOUILLES REVETANT 
UN SCAPHANDRE PUIS S'EBROUANT DANS L'EAU 




LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX! 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 2 




i_ 



Programmes en Ti BASIC pour Ti 99 4A 

INITIATION AU 
LANGAGE ASSEMBLEUR du 
TEXAS INSTRUMENTS 
Ti 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complementaires. Desjeux originauxet passion- 
nants avec couleurs,graphismeset sons :Jeuxde mouvement (Bowling, Bataille 
de I'espace, Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu, Awari, Tour de 
Hanoi, Architecte, etc.). Jeuxdesociete (421, Goldie,Cochon, Mastermyster.Chif- 
fres et mots, etc.). 

Des programmes performants:Calcul (Factures, Paye. Byorythmes, etc.). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque, etc.). 

Et aussi des Astuces pouraugmenterla puissance du langage Ti-Basic: AND et 
OR, Arrondi, Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Le tome 2 est toujours en basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux : Backgammon, Sous-marin, Trappe, 
Roulette, Casse-tete, Puzzle, Echecs, Tachitoscope, Kim, Paires, etc... De la musi- 
quea inclure dansvos programmes: Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique, Calcul de 
puissance, Regions de France, entrainement a la logique informatique, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



en vente dans les ft"l3C et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures, etc.), desjeux de societe (Theme astral, Drapeaux, Poker, Harmonium, 
Calculettescientifique.Ardoisemagique etc.), des utilitaires pour creer des lutins, 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible, 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques, y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande Vitesse d execution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables, a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DID!. 214 pages. Format 21 x 28. 195,00 francs 
francais. Disponible en francais et en anglais. 



JEUX et PROGRAMMES 
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I'ordinateur familial 
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Ti basic pour "Ti 99/4A" 

et PROGRAMMES 
pour I'ordinateur familial 
rEXAS INSTRUMENTS 
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PROGRAMMES on BASIC ETENDU Ti 99/4A 



DEMANDEZ LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISQUETTES. SHIFT EDITIONS, 27 rue du Gal Foy, 75008 PARIS 



Nom/Prinom I I I I I I I I M I I I I I I I I I I I I 

Mw, i I I I I I I I I I I I I I I 

I I CM. Po-.i.l I I I I I I 

Vi,l„ I I Mill 



TOME 1 □ 155F TOME 3 O 155 F 

TOME 2 D 155 F ASSEMBLEUR O 195 F 

CONTRE REMBOURSEMENT FRANCE + 20 F D 
CONTRE REMBOURSEMENT ETRANGER + 30 F □ 



REGLEMENT JOINT... 
cheque D ccp □ 



. i ii tQiQF 



LE MANOIR DU COMTE ZORCK 



Si la nuit vous rgvez de fant6mes, de chateaux hantes et 
de spectres... 

Silejourvousetesobsedeparl'aventurejadecouverteet 
I'exploration... 

Alorsvoilaun programme qui vareconciliervosreves noc- 
turnes et diurnes. 

Ce programme va vous transporter au coeur du royaume 
des tenebres ou regne le sinistre comte Zorck, dans son 
nonmoinssinistremanoir. Lalegenderacontequedansle 
donjon, chaque garde est charge desurveilleruntresor, et 
c'est cela que vous convoitez, les richesses du comte. 
Si cette mission vous semble banale, ne vous y fiez pas, 
Zorck regne sur le royaume des tenebres, comme vous 
sur celui de I'informatique, mais il sait quand meme ce 
qu'estleprogrestechnologique. Vous vous en apercevrez 
quand vous devrez combattre ces robots, ou ouvrir la por- 
te du donjon gardee par un super ordinateur. C'est pour 
cela que votre RC.1251 va vous etre tres utile pendant I'ex- 
ploration. Autant vous prevenir, tout de suite, beaucoup 
de gens sont partis pour cette mission, et peu en sont re- 
venus, alors il est toujours temps d'y renoncer... 



Pascal PRIOUX 



Si vous avez (J6cid6 de continuer alors bravo I! 
BONNE CHANCE 



1) EXPLORATION 1 



VILLAGE 1 


NORD 

OUEST J EST 

SUD 

FNTRFF 




DON 
JON 











9C 



\%* 



PROGSftlWE NUP1ER0 I 
»„ EXPLGRflTIONI *«* 

=:CLEPR : DIM 3SCD*75 
: Dlif Z<9?:Z(9>=39- 
RND 2> A - PANtON : 
GOSUB 950: GOSUB 200 
: GOTO 15 

15'SGS-JB 5i0: MBIT 299 

Z5-fl a ./l.1. ( nios (3*<C) 

.L-l-i'«: ON £ GOSUB 

31,32.53.34.35.34.3? 

-33.59 

39: GOTO 100 

3i:PPINT 'VOUS ETES AU 

VILLAGE*: RETURN 

32:PPINT *fc£L BR0UIU.A 

RD I M": PRINT "OH M 

E VOI-S RIEN": RETURN 

33:RRINT "VOUS ETES SUP 

UN CHEMN": RETURN 

34:PRINT "IL Y ft UN LAC 

V0U3 HE": PPINT "PO 

UVEZ PLUS ftVflHCcS*! 

PETfJPN 

35:PftIKT "L ENTREE DU C 

HATEnU': PETIJPN 
S6:PRIKT "VOUS V0U8 COG 
NE DANS LES": PPINT 
"PURS DU CHATEAU*. 
PETIJPN 
37:PRINT "VOUS ETES AU 

CHATEAU": RETURN 
33-.BEEP 3: P=INT "VOICI 
L ENTREE DU DONJON* 
iZ<S>affS2U»8tZC9>- 
N: CHAIN "SECPETMO 
49:PETUPN 
198: IF A=4 OR A=6 PRINT 
"VOUS NE POUVEZ PAS" 
: PRINT "ALLEP PAP L 
W: GOTO 120 
lie:E£EP 1 

115:V=N:U=(i: PRINT "VOUS 
ETES EN X-'IVfY-* 

iu 

t23: IF RND C0-A)"! 

GQSU3 289 
125:INPUT 'DIRECTION ? * 

»D$: LET n=W:N=V:Dt= 

LEFTS (31,1): 3EE? 1 
128:DS= LEFTS <D*.l) 
138? IF I)S = 'N" LET M=H-l: 

GOTO 155 
135: IF DS*"S" LET M=M*i: 

GOTO 155 
140HF DJ='0* LET N*H-ll 

GOTO 135 



i-lf D*=*E" LET H=NH: 

GOTO 155 
IIPRIHT 'DEPLftCEMENT I 

"POSSIBLE": GOTO 125 
:IF fK8 OR M>14 OR N< 

OR N>? PRINT -VOUS 
ALLEZ VOUS PEPDRE": 

GOTO 159 
i:L=U(H*10;+N>-<75*C> 



169:1 
162: 

163: IF L<9 LET L=L*75:C= 



:IF L>75 LET C=1:L=L- 



!G0TQ 25 

:H=1* RND 9: ON H 
GOSUB 300.319. 329.33 
S. 34-3- 359. 565. 370-33 

0.390 

iPRINT "ATTENTION I ! • 
: PRINT "LE COMBAT C 
OflMENCE" 

PRINT EffFSf' VOUS A 
TTAGiiJE":0= SND t; I? 
0=1 THEN 259 
PRINT "OUF ! IL VOUS 

A MANQUE" 
PRINT 'VOUS A7TAQUEZ 

flAINTEHANT":G= RND 
2: IF 0=1 THEN 260 
PRINT "HORREURIVOUS 
L AVEZ RATE*: GOTO 2 
39 
PPINT EftFf!" VOUS A 

TOUCHED GOSUE 230: 
Z<0J=2(0)-H: IF Z<8) 
<0 THEN 998 
PRINT "VOTRE VITALIT 
E : MZ<e>i GOTO 239 

print ej;fj; v est to 

UCHE's GOSUB 239:G=G 

-Hi IF G'=9 PPINT E» 

lf$i* EST I10RT": 

RETURN 

GOTO 239 

H= PND 5 

ON H GOSUB 409-410.4 

20»436f440 

RETURN 

PPINT 'ATTENTIONIVOI 

LA UN GARTJE":EI=-LE 

GARL':FJ«"E-:G=5: 

RETURN 

PRINT "UN M0NSTP£ 1 • 

:Ei = *LE riONS":Fs«*TR 

E*:G=4: RETURN 

PRINT "HOPREUR ' UN 

NAIN !*:E»="LE MAIN' 

:F*="":G=2: RETURN 

PRINT "PRENEZ GARDE 

! UN ROB0T*:E*=*LE*: 

FJ»' R0B0T':G= RND 3 

: RETURN 



Vous devez aller du village au donjon grace aux commandes N-Nord. 
S=-Sud, E=Est, 0=Ouest. Les renconlres avec d'evenluels monslres 
sont automatiquement regimes par voire ordinateur. La carte des lieux 
n'est pas complete et pour cause, vous I'avez trouvee dans un vieux li- 
vre tout moisi. Et qui plus est. ecrit en une langue etrangere. Cesonl les 
seuls renseignements que vous ayez pu avoir. Librea vousde comple- 
ter cette carte au cours de votre mission. Vous disposez au depart de 
80a 100 points de vie. Les points deviesontle total devotretorce.votre 
vaillance, mais aussi des vivres qui vous restent. Si le total deces points 
est nul, vous irez rejoindre vos ancetres dans le caveau familial. 

2) LA PORTE DU DONJON : 

Unefoisarnveau manoir. vous trouverezsans grand malledonjon. Mais 
pour penetrer dans celui-ci. il faut trouver la porte. En effet. celle-ci est 
camouflee dans le mur. Heureusement vous avez tout prevu, et voire 
PC.1251 va se changer en sonde murale. A partirdes coordonnees x. y 
quevousdeterminerez.votreordinateurcalculeraladistanceetladon- 
nera sous forme d'un signal plus ou moins fori. Quand ce signal sera 
a 0, vous aurez trouve la porte. Mais surprise ! Vous aurezalorsa faire a 
I'ordinateur maison qui vous demandera le mot de passe. Ne vous de- 
couragez pas. votre PC. va encore vous aider. Selon le principe du jeu 
du pendu, votre ordinateur vous aideraa trouver ce mot. Une foislemot 
decouvert. la porte s'ouvrira sur... une autre porte. Comme quoi, le 
comte Zorck peut avoir de I'humour (humour noir. bien sur). Cette (ois 
c'est un nombre a 4. 5ou 6chiffres (selon les humeurs de I'ordinateur)! 
Vous le decouvrirez avec les memes methodes que precedemment. 
mais cette fois uniquement avec des chiffres. 

Enfin.cesdeuxepreuvespassees.vouspourrezaccederal'interieurdu 
donjon. Notezaussi que ces trois operations sont a effectueren moms 
de 50 coups. 

3) LE DONJON : 
Deplacement : 

7 - NORD OUEST 8 = NORD 9 - NORD EST 

4 = OUEST 6 = EST 

! - SUD OUEST 2 - SUD 3 - SUD EST 

La louche 5 permet de sortir du donjon ou que vous soyez pour retour- 
ner au village. 

Le donjon possede 4 etages plus un rez-de-chaussee. Votre PC.1251, 
qui vous sert de radar affiche selon votre position a I'etage ou vous 
etes : 

position suivant y : < partie nord du donjon < 7 
position suivant y ; 7 < partie sud du donjon < 13. 
Le radar s'affiche sur les deux premiers caracteres. Les points noirs 
sont les murs et les blancs les passages. La position x=0. y=-0 est en 
haut a gauche de la partietiord du donjon, la position x=9, y— 13. est en 
bas a droite de la partie sud du donjon. Les 4 cases centrales, permet- 
tent de changer d'etage. Si en plus vous etesau rez-de-chaussie, vous 
pourrez egalement partir. Les combats avec les gardes sefont par I'or- 
dinateur, et vous ne pourrez prendre le tresor que quand le garde sera 
mort 




483 
416 

420 
430: 
443: 
598 



IPRINT "TIENT UN SLOB 
":Ef="LE BL0B":FJ="" 

!G= RND 3: RETURN 
:RRINr "VISION ATROCE 

IUN SERPENT":E$='LE 
S£R":F5="PENT":G=3: 
RETURN 

PRINT 'UN SERGENT XO 
R":ES=*L£ S=RG":-"s=" 
ENT":G=6: RETURN 
PRINT "A MORT! UN TR 
AITPE':EJ='LE TRAI"i 
Ff=*TRE J :G=6: RETURN 
PRINT "UN MAGICIEN . 

. .*:£*= , LH HftGI'iF 
$ = "CIEN":G= RND. 7: 
RETURN 
PRINT "UN CHIEN VOUS 

ATTAOUE i u :E*='LE C 
Hr£":F5="N"JG=4: 
PETURN 

PRINT "C EST UNE EGR 
ATIGNURE*: RETURN 
PRINT 'CA HE FAIT PA 
3 DE BIEN": PRINT "P 
A' OU CA PASSE": 
RETURN 

PRINT "OUILLE ! OUIL 
LE ' OUILLE": RETURN 
PPINT "HOU ! QUE CA 
FAIT HAL": RETURN 
PRINT "C EST UN COUP 

FATAL": RETURN 
Et<9>="1122222233::2 
22222332223333333222 
23222322222322332222 
2322232223333333 
:S*'.y>=BJ<0> + "2223222 

3»C1)="2232233222223 

22322222233332222223 

22324ai4fi5-:a44A26665 

664«42687n62222 

3*(U*B$(l>+*666666' 

*£TU«N 

Mflr :3i "OR c=9 :o 

3: READ 3S(1):A= .£h 

2s<v> 

e Q* >: "0 A-2S S" 3 

3: RSIST llOf C3J<0) 

. :.2s^: >£X" : 

-OR >; _ 20 S'E 3 3 

: °'> T RIGHT* (3JC0 

>» 25-1)1 -E^'s (3«fl 

>i:+:>i -^ext ::3j<8) 

•B»<*.)i NEXT C 

3ATA "VOUS £ T ES AU V 
:._AGE DES K1HAR8 ■ 
°EURlAD£ " 
DATA "DEGEnEREE 0U! 
VIT ufWUEJieNT LA NU 
IT < [ L £3" II "EURE 
J . H0RS DES ' 



965 
979! 



8JDATA "C00Rj0s^£ES X= 
9 . V=14 . V0!.S =■■-? 
=Z DANS _£S 1ARAIS ' 
AUDITS AlORS ' 

5:DATA "EVr"E2-L.ES ... 
_E BAHOia DU COrTE 
Z0^C< SE "ROJVE A l 
A'JTRE 30UT DE LA * 

9:DATA "PR0?R:E"E . :js 
E -OIS QUE VOUS Y SE 
REZ » VOUS AUREZ DE 
sOUVEllES " 

5:3ata "i^struc'ions r 
our continuer votre 
exploration . les be 
placements * 

9:data *s effectuent ° 

A? : ^=s0RD : S=SUD 
: 0«OU£ST : £=ES r . 

5:DA"A "A TOUT A L riEU 
?E i EU r -ETR£ ET 30SN 
£ CHASCE . . ." 

B'DATA * " 

9:C=9: RE"'JR- 

3: 3 R:n" "VOUS ETES 'OR 
- .-: iq:^ 'VOUS AV 
IEZ UN "^ESOR DE": 
PS!l»T Z(7)i" I": 
3 = >- -3GriAGE ...': 

i:3'£ 3 2:35(9>="5R°D=2 
9S2S2c*E0R4R.D5UU'!B 
S<1) = ".E TA-^OIR DU C 
G"~E ZORCK" 

5=aA:- 13: "OR :=1 "0 
24J CA^L S7979: 
*R:«T -E-TS (3ICI>.I 
)! RIGHTS (3X9). 24- 
I)i *ex? I: FOR I=i 
~ n . 2- il=P :: -AIT t 
90: 3 RI\T 3J<:>: 
tEXT . 

3:«.a: _ :0:3*(1)«BSU)+ 
u EC^I" =AR PASCAL 3 
RIOUX . 1933 .": FOR 

:=: "0 60 

:=RI>" UBS (S»(l)»Il 

24)1 hEXT : 

3sc9>="":3J(:)="-; 

5E _ ijR^ 



»R0GRAWI«£ NJI"£R0 2 

■*•** _£ D0 , ' J J0^ : 



5IC-EAR : SI" 3S<:>*39 

1 3h-.DC 1 ' : * = S'0RE 
•.Q-.AAl' :0: 3EE 3 3: 
GOSUB 400: DIH X<9>: 
3IS Y(6) 
50:.;=209- RnD i90:D = :00 



5=:-=;. (CC-*>*2)* D-N 



235:iEE> ;: >RI>T ;i ■ > 

:--£ i ;--■; 



69 


■■'■-'.' tee: liv* :: 


1 




p?:^~ 'SsweRC^E ?.=' 


:-;:;££= .: >RIN- Jl" c- 




:—■ ■ = ■::: a _;t : 


:--*=■< :-'! x<9>!- 




ill'-' :: P«[HT -TSKPS 


: ■■£ .;--■■ i :- = : 






9) 




-=> --£■■ 199 


2-5:;=:-;: III* ;: >^>" 


65 


■■■:-■.- \j?: Hi* 11 


'-E" 5 S : *:;: I? 




'-'■:■■' *i\-i*:^i ;.: 


58 "-£■■ S59 




VhNT:-: input ■ = ■; ■■ 


25810070 Lvj 




■ = in 


I*-:'- ■-'-' 9 ?! S0SUS 9481 


78 


ilF l><-288 : : - 289 


30SU3 -88: C-A> *:; 




CR N<-;93 0? N>;85 


N.'ON'ilO 




ill- :: s: ?;st '2«EU 


358I3EEP £: =G ? ." = 1 TC 2 




: :-. ::-tns >•■■ 


•;: .-:" 1: *'*:■■' -. 




:-n: 65 


- • • ; j . * — 


75 


J=J»i: IF j>s; --;•■ 


.■: ■■ = :•:" I: 3EE' 1: 




350 


«ftIT 158: ".:-- -_E 


;;■ 


307C 55 


90HJ0N S ECR0ULE' 


:-M- 


3QSU3 *88l 30SU] ~l~ 


363:=R:nt *V0US E'ES ^0R 




:C= RUB .&•■ FOR !-l 


T ...■: EsB 




"0 161 CALL S7878I 


488:-a:" 18:BS(9) = ":3SC 




R£fl: m<i): i= :=: 


:>=••: =0R C=9 to 3: 




LET li !:=3S(I) 


READ B!C1):A= lEN 3* 


:e5 


UA1T 11 h£XT lifts 


(9): FOR 1=1 TO A-28 




'.;■- 3S<8)l3sCl)» , *l 


STEP 3: PRINT NIDS < 




2ii* ii 3 ?:^' - js n 


3s(8)ilt24)l >EX" : 




DT CE ■!«!• LETTSES" 


4I8IF0R :=: "0 28 STEP 3 




: CJLL 335 


: PRINT RTG-TS C3S<3 


167 


r 0? [=1 TC a:3s;i>=3 


>.25-:>: -E-"5 (J$<i 




5C1J*"-': CALL S7671 


).:•;): NEX" ::3«<8) 




: NEXT I 


=35(:>! .^EXT C 


ue 


UA1T ii '11° :: 


-28:CA_. S7858: 3E T URN 




PR1MT • •!3I<:)'.- TE 


435:BA T A '3RAV0 1 VOUS E 




UPS •'<•■ COLL 385IL= 


"ES ARRIVE Au DONJOn 




8: CALL S7858: F0« I 


. VOTRE DE"C~EUR E 




= 1 TO A: IF AIDS (3S 


ST EN lARC^E . ■ 




<1>.I.1>="-' LET L=l 


440:DA'A "IL FAU' QUE V0 


115 


NEXT II 1-' L=8 THEH 


US "R0UVIE2 _m PORTE 




289 


0UI SE T TO UVE DANS 


120 


IKPUT -LETTSE ? - :C» 


_£S COORDONNEES " 




: J c LEN CIOI THEN 


445I3RTH ": -288<X<289 . 




128 


-188<Y<199 » EN rtET 


125 


D"Il -0* 1=1 "0 A: 


"ANT _E SIGNAL Du DE 




: ; -::s (3sce>.i,i>« 


"EC'EUR A 6 ." 




Cs G0SU3 :*5 


458:DA~A ' • 


138 


^EX" I: 1? 3=1 G0SU3 


455: DATA "US PAnsEAU COL' 




158 


-ISSE DEVANT VOS VEU 


:35 


J=Jf!:';- J>=59 "AEN 


X E" UNE PORTE GEAnT 




358 


E APFARAIT ." 


:<9 


GO'O 119 


468:DA T A "SUR LA DR0I7E 


145 


3EE 5 21 PftOSE •3GI..1E 


i :. »l UN "ABLEAU 




-ETTjiE ":3S(1) = 


^l CONTROLS ■ Qui E:< 




-E-"J (3*C:>.I-1)+C* 


R.I0UE 5UE =0UR " 




♦ RIGHT* (Bs(l).A-;) 


465:da-a 'Ouvrir -a fort 




ID»8I RETURN 


E Iu FAU T DONnER lE 


159 


3EEP 11 PAUSE 'LETTS 


10' DE FASSE . JE RE 




E -"ALSSE !•: RETURN 


G.E -E DETECTEUR .' 


299 


U=7- RND 31 FOR 1=1 


479: DATA ■ • 




TO 6:V<I>»18- RND 19 


5I9:DA"A "ANARCNIS'E". "C 




: ^EX" I: GOTO ?98 


HEhlNGGUN'i'CRAYON'j 


282 


G03U3 9*9: GOSUB 198 


•<.AX0NNER'."<0PECK" 



NE N0.13RE A 'J'ji'CHI 
ffreS" 
28SINflIT :a=8:C=9:D=8: 

Input 'Quel est vcr 
e c.-iffre '",3j<1): 
if _en 3xoou 3ee? 
21 PRINT 'frreur-! 
GOTO 285 

218ifor :=: -q j:x<:>= 
v«. -IDS C3f(l>*Iil) 
: If X(I)=V!I) LET X 
C) = 198lA=A+I 

215INEXT I: FOR 1 = 1 "0 Ii 
: FOR <=: "G Ul :-" X 
<<>=»<:> -Ef C"C1 

228!"EX- <: ^E:^" I 

22i:; : a<2 .ET X(7)=32: 
GO'G 223 

222:;<<7)=83 

223: IF C<2 -i: X(8)=32: 
GO-0 225 

22':x<8)=83 

225l3"U-«-Cl IF D<2 lcT 
K£9)«52i Gu"0 227 

226:x<A>=33 

227: if _<2 .ET X(8)=32: 
GOTO 239 

228:X<8)=83 

238:3EE? :: frint a;- CN 
;ff?E"I CnRJ X<7>!" 
3IEs f.ACE"! C"RJ X( 



."F-ARVNX" 

Dh"A "GuInZIEIENENT" 

."P.URICELLULAIRE"." 

SEXy'i'-ZAR'."^VRFR3 

OLIOUE'.-GAZGNNER" 

DA T A "ENFOIGNADE"."! 

CHTYOPHKGE'i'JYZftNTI 

■.-."•:'j--:-oz:en" 

Dh"A 'OUEuOUE CAOSE 
30UGE DERRIERE VOLS 
AVEC UN 3SUiT D ENFE 
R . VOUS VOUS ' 
DA"A 'RET0URNEZ . ,1ft 

is vous --: vovez rie 

N . - A"10SP-ERE S E 
C.AIRCIE . UNE " 
DA"A 'LftltPE CLIGN0TE 
. £■. DESS0US IL Y A 
.£ TENE SY8TEKE DE 
SECURITE .' 
DATA " * 

DA'A 'LE DONJON EST 
NAInTENANT ACCESIBLE 
. DES TRES0RS FABUL 
EUX VOUS ATTENDENT.' 
DATA 'LES DEPLACENEN 
TS DANS LE DONJON S • 



Suite page 16 



OSCILLATIO NS ^pM 



Qa bouge du cdte de HP 41, avec ce programme traitant 
a^smouvementsperiodiques. forces ou non. Oscillations 
libres, torches : bref, de bonnes vibrations pour les 
HP'Iste s. 

Franck MATHIS 



Moded'emploi . 

Ce programme a pour but deresoudreun mouvement(dynamique.os- 

cillatoire. etc.), ceci par I' intermedia ire de donnee d'equations diffe- 

rentielles. 

Possibiiites Oscillation libre : aX" + bX' + cX - 

X : tonction a trouver (mouvement cherche) 

l'oscillation donne lieu a la resolution de I'equation differentielle qui 

possede des solutions de 3 formes : 

Discriminant : D D > F — ke a * + h'e bn , a et b sont distincts et reels 

D - F ■= (kx + k") e a ". a unique rb reel 
2a 

D < F - ke a " cos BX + h'e a * sinbx. 

2 solutions conjugees a + ib, a - ib 
ceci represente l'oscillation libre 

Oscillation forcee aX" x bX' + cX - 
X : fonction a trouver 

P : fonction qui represente le terme forcant 
La fonction P peut-etre polynominale, (1 ef , 2 erne et 3 eme degre) 
ou trigonometrique (sin ou cos) 

Leresultat est d'abord donne sous saformelitterale (en fix) mais les ter- 
mes sont quelques fois decimaux. par consequent, il est donne le lis- 
ting (k. k', A. B. a.b) des donnees en FIX5pourlesphysiciensetensuite 
sous formede fractions (par un calcu! de rationnelle, (plus particuliere- 



ment ^6' - Aac un bip tres court est lance en coursd'execution. 

Le programme facilite enormemenl les calculs Ires longs et tasfidieux 
d'oscillations libres ou entretenues par les integrales et les equations 
differenlielles. 

Son avantage est sa rapidite d'execulion el son assimilalion a des Tins 
nettement plus malhematiques (ou physiques) qu'experimentales 
Choix oscillation libre XEQ OSCILL 

ne nen repondre au premier message, presser R/S 
X" ? mettre le coefficient de X". R/S 
X' ? mettre le coefficient de X', R/S 

X ? mettre le coefficient de X', R/S X (-) — ? condition initiale 
pour X (a) - b, on enlre a. enter ' b (a est souvent nul) 
R/S X' (-) ° ? pour X' (a) = b. on entre a, enter I b (a souvent nul) 
Condition initiale de la derivee en 
Exemple ; X" + 2X' - 15 X =■ X (0) = 4 X' (0) = 36 D 
X de la forme ke* 1 + k'e a * X : Se'^'. 7i *" 
chee pendant la resolution ! 
Si vous voulez rappeler les donnees, pressez R/S pour avoir : 
K = -3 K' - 7 A{A) = -5 B(B) = 3 A a la place de A 
B a la place de B 
Si les donnees sont fractionnaires, elles sont calculees sous forme de 
fractions des que vous pressez R/S 

Si D = Exemple X" -12X' + 36X- Oil n'y a pas de B (pas de B) 
Ax X (0) = 3 X 1 (0) 89 
5 15 

X=(kx+k')eX = ZX4-3)e A2 , la forme litteralene donne pas unbonre- 

3 5 sultat carc'est en FIX 

Pour remedier a cela pressez R/S 

xeO OSCILL. R/S. X"?. 1, R/S. X'?. 12, CHS, R/S, X?. 26. R/S. 
X (-) = ?, 0. enter 1 3. enter 1 5,-h R/S. X' (-)= ?, 0. enter * 89. enter, 15, * 
R/S 



I'equation est toujoui 



affichage de I'equation. puis affichage da X = 2x +*) e'6X; 

resullat apparemment faux x 

R/S K - Z333 R/S 7/3 (Done K - 7/3. ce qui est juste) 
R/S K' - 0,6 R/S 3/5 (Done K' - 3/5. ce qui est juste) 
R/S A «- 6 Done A - 6, 8 n'existe pas. on ne presse plus R/S 

Si D < Exemple X' + 2X'+5X-0X(0)-4 
X' (0) - 
X de la forme ke*" Cos Bx + k'e** sin. Bx 
XEQ OSCILL. R/S. X'?,1. R/S. X' ?. 2. R/S, X?. 5. R/S 
X (-) = ? 0. enter ■ . 4, R/S X" { ) = ? 0. enter 0. R/S 
X = 4e" * cos. 2x. R/S. + 2e~ ' sin 2x. la fonction saffiche en deux fois. 
Les donnees (A, A', A. 8) sont en tieres done iln'esl pas utilede continue* 
a presser R/S sauf si vous les avez mal lues 

Choix oscillation forcee. le terme forcanl est-il polynomial ou trigono- 
metrique ? XEQ OSCILL, FORCE. R/S, POLN ou TRIGO 
Choix polynrjme ; pressez R/S 
DEGRE ? mettre le degre du polynome (1. 2 ou 3) 
Exemple : X" - X' -2X - 2x + 1 

X (0) = 5 X- (0) - F est de la forme : ke* 1 + k"e B " + A'x + B 
DEGRE ? 1. R/S. X '1. 2. R/S. X ' 0. 1. X"?. 1, R/S. 1. R/S. X?. -2. R/S 
condition ! X (-) = ?, 0. enter . 5. R/S. 
X , (-) = ?. enter \P 

Affichage de la fonction et du terme forcant. petit beep pour annoncer 
I'eventualite d'un terme (A ou B) irrationnel. 
X - 3e"* + 2e 2 '. R/S + -1x + done X - 3e"" + 2e 2 * - x 
Le listing des donnees n'est pas possible pour les termes torcantspoly- 
nomiaux. It n'est pratiquable que pour les oscillations libres. ou les os- 
cillations forcees avec un terme trigonometrique (ce qui a beaucoup 
plus d'interet). 

Pour les 2- me et 3 ems degres. le fonctionnement est identique, il suffit 
de rentrerles coefficients respectifs des differents degres. d'etablir les 
conditions initiales. La fonction appara!t toujours en deux morceaux. 
(pour avoir I'autre bout, pressez R/S). 

II va sans dire que les coefficients de la fonction cherchee doivenl etre 
entiers, puisqu'on ne peut pas les lister avec ou sans reduites. (Cette 
option rallongerait le programme qui ne pourrait plus rentrer dans la HP 
41). 
Pour rentrer le programme : SIZe — 026 

Byte : 2000 

pas: 1210 

nombre de cartes : 9 



18:28 87.81 


68 / 


137 / 


286 RCL 88 


275 » 


344 STO 13 


413«L8L F 


481 RCL 85 


556 -F=- 


619 RCL 85 


688 -X?- 


757 STO 18 


826 « 


81«LBL -OSCILL 


■ 69 STO Z 


138 STO 15 


287 » 


276 - 


345 RCL 18 


414 "POLN 


482 » 


551 flRCL 16 


628 > 


689 PRONPT 


758 RCL 85 


82? RCL 11 


82 SF 26 


78 STO T 


139 FS?C 82 


288 EtX 


277 PBS 


346 * 


OU TRICO?- 


483 CHS 


552 -FXt2 ♦ ' 


' 621 * 


698 STO 18 


759 RCL 84 


828 RCL 88 


83 cm 


71 Xt2 


148 RTH 


289 RCL 88 


278 SORT 


347 RCL 12 


415 HON 


484 RCL 19 


553 flRCL 17 


622 RCL 21 


691 -xte'- 


768 « 


829 « 


84 RAD 


72 ♦ 


141 "»:• 


218 • 


279 2 


348 RCL 11 


416 PRONPT 


485 - 


554 -FX + - 


623 - 


692 PRONPT 


761 EtX 


838 - 


65 FIX 8 


73 X<8' 


142 9RCL 14 


211 STO 13 


288 / 


349 * 


417 flOFF 


486 RCL 66 


555 flRCL 18 


624 STO 86 


693 STO 19 


762 STO 11 


831 RCL 89 


86 SO. 4 


74 CTO 85 


143 -Fef 


212 RCL 18 


281 STO 84 


358 - 


418 flSTO X 


487 t 


556 flVIEH 


625 RCL 87 


694 SF 83 


763 RCL 87 


832 / 


87 STO I 


75 SORT 


144 flRCL 86 


213 « 


282 RCL 82 


351 STO 89 


419 -TRIGO- 


488 STO 86 


557 RCL 16 


626 RCL 19 


695 XEO b 


764 RCL 88 


833 STO 14 


88 BSTO X 


76 STO \ 


145 "FX t ■ 


214 RCL 12 


283 CHS 


352 RCL 86 


428 BSTO Y 


489 RCL 88 


558 RCL 83 


627 • 


696 AVI EH 


765 « 


834 RCL 88 


89 ASHF 


77 ST* Z 


146 flRCL 15 


215 RCL 11 


284 2 


353 RCL 13 


421 X=Y? 


498 RCL 18 


559 / 


628 -2 


697 -F=- 


766 EtX 


835 RCL 18 


18 ASTO Y 


78 - 


147 -Fsf 


216 » 


285 / 


354 * 


422 CTO N 


491 - 


568 STO 19 


629 « 


698 BRCL 16 


767 RCL 88 


836 « 


1! -«»-»U- 


79 STO 88 


148 flRCL 64 


217 - 


286 STO 88 


355 RCL 11 


423 -BEGRE->- 


492 STO 88 


561 RCL 82 


638 RCL 28 


699 "FXt3 t ' 


' 768 » 


837 RCL 12 


12 ARCL X 


88 XOY 


149 "FX- 


218 STO 89 


287 RCL 85 


356 RCL 88 


424 PRONPT 


493 RCL 13 


562 • 


631 - 


788 BRCL 17 


769 STO 12 


838 RCL 86 


13 ASHF 


81 STO 84 


158 flVIEH 


219 RCL 86 


288 RCL 84 


357 * 


425 9 


494 RCL 18 


563 -2 


632 RCL 88 


781 "FXt2 t ' 


■ 778 RCL 87 


839 4 


14 ARCL V 


82 X=Y? 


151 RTN 


228 RCL 13 


289 » 


358 - 


426 4 


495 « 


564 * 


633 t 


762 BRCL 18 


771 RCL 84 


848 - 


13 RCL [ 


83 GTO 84 


152 FIX 5 


221 « 


298 COS 


359 RCL 99 


427 CTO IHD X 


496 RCL 12 


565 RCL 1? 


634 STO 88 


783 "FX 4 • 


772 « 


841 RCL 89 


16 STO 4 


84 RCL \ 


153 -K=- 


222 RCL 11 


291 RCL 85 


368 / 


428»LBL 18 


497 RCL 11 


566 t 


635 RCL 13 


764 BRCL 19 


773 EtX 


842 / 


17»LBL 88 


85 FRC 


154 flRCL 14 


223 RCL 88 


292 RCL 88 


361 STO 14 


429 "Xtl?- 


498 • 


567 RCL 83 


636 RCL 18 


785 PSE 


774 RCL 64 


843 STO 15 


18 HON 


86 X<8' 


155 PRONPT 


224 » 


293 » 


362 RCL 88 


438 PRONPT 


499 - 


568 / 


637 » 


766 flVIEH 


775 « 


844 -»:• 


19 "LIBRE 


87 TONE 7 


156 RCL 14 


225 - 


294 EtX 


363 RCL 18 


431 STO 16 


598 STO »9 


569 STO 28 


638 RCL 12 


787 RCL 16 


776 STO 13 


845 BRCL 14 


OU FORCE'- 


88 RCL 85 


157 XEO E 


226 RCL 89 


295 • 


364 « 


432 -xte?- 


581 RCL 86 


578 RCL 82 


639 RCL 11 


788 RCL 83 


77? RCL 85 


846 -Fef 


28 PRONPT 


89 RCL 88 


158 It" 


227 / 


296 STO 16 


385 RCL 12 


433 PRONPT 


562 RCL 13 


571 CHS 


648 • 


789 / 


778 RCL 22 


847 BRCL 88 


21 fiOFF 


98 « 


159 flRCL 15 


228 STO 14 


297 RCL 85 


366 RCL 86 


434 STO 17 


583 « 


572 « 


641 - 


718 STO 28 


779 CHS 


848 "FX ♦ - 


22 ASTO X 


91 EtX 


168 PRONPT 


229 RCL 88 


298 RCL 84 


367 * 


435 SF 83 


584 RCL 11 


573 RCL 81 


842 STO 89 


711 RCL 82 


788 « 


849 flRCL 15 


23 -FORCE" 


92 STO 18 


161 RCL 15 


238 RCL 18 


299 » 


368 - 


436 XEO b 


585 RCL 88 


574 RCL 19 


643 RCL 86 


712 • 


781 RCL 23 


858 "Fef 


24 ASTO Y 


93 RCL 85 


162 XEO E 


231 « 


388 SIH 


369 RCL 89 


437 -F=- 


586 « 


575 • 


644 RCL 13 


713 -3 


?82 - 


851 flRCL 84 


25 X=Y? 


94 RCL 84 


163 -f)=- 


232 RCL 12 


381 RCL 88 


378 / 


438 flRCL 16 


587 - 


576 -2 


645 * 


714 « 


783 RCL 85 


852 -FX- 


26 CTO F 


95 « 


184 flRCL 68 


233 RCL 86 


382 RCL 85 


371 STO 15 


439 "FX 4 - 


588 RCL 89 


57? » 


846 RCL 11 


715 RCL 17 


784 Xt2 


853 PRONPT 


27»LBL b 


96 EtX 


165 PRONPT 


234 » 


383 » 


372 FS?C 82 


448 flRCL 17 


589 / 


578 + 


647 RCL 88 


716 * 


785 RCL 21 


854 -F* • 


28 " J" 


97 STO 1 1 


166 RCL 88 


235 - 


384 EtX 


373 RTN 


441 AVIEU 


518 STO 14 


579 RCL 18 


648 • 


717 RCL 83 


786 CHS 


855 flRCL 28 


29 PROMPT 


98 RCL 87 


167 XEO E 


236 RCL 89 


385 » 


374 -»:- 


442 RCL 16 


511 RCL 68 


588 t 


649 - 


718 / 


787 « 


856 -FXt3 f 


38 STO 81 


99 RCL 88 


168 "B=- 


237 ' 


366 STO 1 1 


375 flRCL 14 


443 RCL 63 


512 RCL 18 


581 RCL 83 


656 RCL 89 


719 STO 21 


788 ♦ 


857 BRCL 21 


31 • J" 


188 • 


169 flRCL 84 


238 STO 15 


387 RCL 87 


376 -Fff 


444 / 


513 » 


582 / 


651 / 


728 RCL 62 


789 RCL 85 


858 "FXt2 V 


32 PRONPT 


181 EtX 


178 PRONPT 


239 FS'C 82 


388 RCL 84 


377 flRCL 88 


445 STO 18 


514 RCL 12 


583 SF 82 


652 STO 14 


721 « 


798 3 


859 flRCL 22 


33 STO 82 


182 RCL 88 


171 RCL 84 


246 RTN 


389 * 


378 "FX COS' 


446 RCL 82 


515 RCL 86 


584 STO 21 


653 RCL 68 


722 2 


791 YtX 


868 -FX t" 


34 ■ J- 


183 « 


172 XEQ E 


241 -»:- 


316 COS 


379 flRCL 84 


447 » 


516 « 


585 XEO c 


654 RCL 18 


723 » 


792 RCL 28 


861 BRCL 23 


35 PROBPT 


184 STO 12 


173 RTN 


242 -FC 


311 RCL 86 


388 -FX- 


448 CHS 


517 - 


586 RCL 65 


655 « 


724 CHS 


793 CHS 


862 flVIEH 


36 STO 83 


185 RCL 87 


174«LBL 84 


243 flRCL 14 


312 » 


381 PRONPT 


449 RCL 17 


518 RCL 89 


587 RCL 88 


656 RCL 12 


725 RCL 18 


794 ♦ 


863 RTN 


37 -CONDITION? 


• 186 RCL 84 


175 RCL 82 


244 "FX t • 


313 RCL 87 


382 •* " 


458 * 


519 / 


588 « 


657 RCL 86 


726 * 


795 * 


864»LBL H 


38 AVIEH 


187 » 


176 CHS 


245 flRCL 15 


314 RCL 84 


383 flRCL 15 


451 RCL 83 


528 STO 15 


589 EtX 


658 » 


727 RCL 81 


796 RCL 86 


865 "SIN 


39 PSE 


188 EtX 


177 RCL 81 


246 "F)et- 


315 » 


384 -Pet- 


452 / 


521 ■»■■' 


598 STO 16 


659 - 


728 RCL 28 


797 ♦ 


ou cos?- 


48 -»<_)=?■ 


189 RCL 84 


178 2 


247 flRCL 88 


316 SIN 


385 flRCL 86 


453 STO 19 


522 flRCL 14 


591 RCL 64 


668 RCL 89 


729 » 


798 STO 86 


866 A0H 


41 PRONPT 


ue • 


179 « 


248 -FX- 


317 RCL 84 


386 "FX SIH- 


454 SF 62 


523 "Pet- 


592 RCL 85 


861 / 


738 6 


799 RCL 95 


867 PRONPT 


42 STO 86 


111 STO 13 


188 / 


249 flVIEN 


318 « 


387 flRCL 84 


455 XEO c 


524 flRCL 88 


593 » 


662 STO 15 


731 « 


888 RCL 21 


868 flOFF 


43 XOY 


112 RCL 18 


181 STO 88 


258 RTN 


319 - 


388 "FX- 


456 RCL 88 


525 "FX t ■ 


594 EtX 


663 •>■■• 


732 - 


881 • 


869 BSTO X 


44 STO 85 


113 » 


182 RCL 85 


251 FIX 5 


326 RCL 86 


389 AYIEN 


457 RCL 85 


526 flRCL 15 


595 STO 11 


664 flRCL 14 


733 RCL 83 


882 -2 


878 -SIH- 


45 •»•<_>=?• 


114 RCL 12 


183 4 


252 -K=" 


321 RCL 87 


398 RTH 


458 « 


52? "Fef 


596 RCL 87 


665 -Pef 


734 i 


883 • 


871 flSTO Y 


46 PRONPT 


115 RCL 11 


184 EtX 


253 flRCL 14 


322 « 


391 FIX 5 


459 EtX 


528 flRCL 84 


597 RCL 88 


666 BRCL 88 


735 STO 22 


884 RCL 22 


872 X=Y' 


47 STO 88 


116 « 


185 RCL 85 


254 PRONPT 


323 EtX 


392 -K=" 


468 STO 18 


529 "FX- 


598 « 


667 -FX » • 


736 RCL 82 


885 - 


873 GTO d 


48 XOY 


117 - 


186 • 


255 RCL 14 


324 « 


393 flRCL 14 


461 RCL 84 


538 PRONPT 


599 EtX 


668 BRCL 15 


73? • 


886 RCL 85 


874 -PULSfl 


49 STO 87 


118 STO 89 


187 STO 18 


258 XEO E 


325 STO 12 


394 PRONPT 


462 RCL 85 


531 •* ■ 


688 RCL 88 


669 "Fef 


738 CHS 


887 Xt2 


TIOHT 


58 CLO 


119 RCL 86 


188 RCL 88 


257 ■*'«" 


326 RCL 87 


395 RCL 14 


463 • 


532 flRCL 18 


681 » 


676 BRCL 84 


739 RCL 19 


888 RCL 26 


875 PRONPT 


51 flRCL 81 


128 RCL 13 


189 RCL 85 


258 flRCL 15 


327 RCL 84 


396 XEO E 


464 EtX 


533 "FX ♦ - 


682 STO 12 


671 -FX- 


748 ♦ 


889 • 


876 STO 16 


52 •!-»•♦ • 


121 « 


198 ' 


259 PRONPT 


328 « 


397 ■!('»• 


465 STO 1 1 


534 flRCL 19 


683 RCL 84 


672 PRONPT 


741 RCL 61 


818 3 


877 -PHASE'- 


53 flRCL 82 


122 RCL 1 1 


191 EtX 


268 RCL 15 


329 SIN 


398 flRCL 15 


466 RCL 88 


535 flVIEH 


684 RCL 8? 


673 ■♦ - 


742 RCL 21 


811 « 


878 PRONPT 


54 -P»'t • 


123 RCL 88 


192 STO 11 


261 XEO E 


338 RCL 88 


399 PRONPT 


467 RCL 8? 


536 RTN 


685 • 


674 BRCL 19 


743 » 


812 - 


879 STO 17 


55 flRCL 83 


124 • 


193 RCL 87 


262 -fl=- 


331 • 


486 RCL 15 


468 • 


53?«LBL 11 


686 EtX 


675 -FXt2 t 


•744 2 


813 RCL 88 


888 SF 83 


56 -M- 


125 - 


194 RCL 88 


283 flRCL 88 


332 RCL 87 


481 XEQ E 


469 EtX 


538 -Xt2'- 


687 RCL 84 


676 flRCL 28 


745 » 


814 * 


881 XEO b 


57 FS'C 83 


126 RCL 89 


195 » 


264 PRONPT 


333 RCL 64 


482 - ft=- 


478 RCL 88 


539 PRONPT 


688 • 


677 "FX f 


746 CHS 


815 STO 88 


882 -F=COSC- 


58 RTN 


127 / 


196 EtX 


265 RCL 88 


334 « 


483 BRCL 88 


471 » 


548 STO 16 


689 STO 13 


678 flRCL 21 


747 ♦ 


816 RCL 13 


883 ARCL 16 


59 flVIEH 


128 STO 14 


197 RCL 87 


266 XEQ E 


335 COS 


484 PRONPT 


472 STO 12 


541 -XtP" 


618 RCL 85 


679 PVIEH 


748 RCL 83 


817 RCL 18 


884 -PX+P1* 


68»LBL c 


129 RCL 88 


198 RCL 86 


267 RTN 


336 RCL 84 


485 RCL 88 


473 RCL 84 


542 PRONPT 


611 Xt2 


686 RTN 


749 / 


818 4 


885 PSE 


61 RCL 81 


136 RCL 16 


199 « 


268»LBL 85 


337 « 


486 XEO E 


474 RCL 87 


543 STO 17 


612 RCL 19 


681«L8L 12 


758 STO 23 


819 RCL 12 


886 AVIEU 


62 RCL 82 


131 « 


288 XOY 


269 RCL 82 


338 » 


487 "B=- 


475 « 


544 -Xt8'- 


613 CHS 


682 -Xt3'- 


751 SF 82 


828 RCL 1 1 


887 SF 82 

888 XEQ r. 


63 RCL 83 


132 RCL 12 


281 • 


278 Xt2 


339 RCL 87 


488 flRCL 84 


476 EtX 


545 PRONPT 


614 • 


683 PRONPT 


752 XEO c 


821 4 


64 X<> Z 


133 RCL 86 


262 LflSTX 


271 RCL 81 


348 RCL 88 


489 PRONPT 


477 RCL 84 


546 STO 18 


615 RCL 86 


684 STO 16 


753 RCL 85 


822 - 


889 RCL 16 


65 CHS 


134 > 


283 * 


272 RCL 83 


341 » 


418 RCL 64 


478 • 


547 SF 83 


616 * 


685 -Xt2i- 


754 RCL 88 


823 STO 89 


898 Xt2 


66 ST/ Z 


135 - 


284 STO 12 


273 • 


342 EtX 


411 XEQ E 


479 STO 13 


548 XEO b 


617 RCL 28 


686 PRONPT 


755 • 


824 RCL 86 




67 ST» X 


136 RCL 69 


285 RCL 87 


274 4 


343 « 


412 RTN 


488 RCL 18 


549 flVIEH 


618 CHS 


687 STO 17 


756 EtX 


825 RCL 13 


Suite page 1/ 



MEMOIRE 



Un petit programme pour vous rafraichir la memoire. Un 
bon graphisme anime pour un jeu toujours passionnant. 

Francis GERARD 







10 




20 


FAST 


3V5 


GOSUB 20i?(5 


■*. a 


LET D-B 


50 

sa 




REM D'SE-'-'UILLE 


7a 


FOR R=l TO 5 


sa 


FOR N=0 TO .' 


90 




100 


NEXT N 


na 


LET E=B 


ISO 


IF M = l THEN GOSUB OOS 


12s 


If- b=l IMtN Ltl W«S 


13a 


IF E = l THEN BOTO 190 


140 


FOR N = l TO S 


180 


NEXT N 




FOR N=l TO 4 




PRINT OT HtN+4,26,B$(Nl 


• &$ 


NEXT N 


I 9a 


NEXT M 


2QO 


IF E=l THEN GOTO 600 



?13 LET A = 



LET _ 

IF A = -I THEN GOTO 010 

FOR N»l TO 9 

PRINT AT R+N,26;J$ 

NEXT N 

GOTO 70 

REM 

REM DeONHOMME 

FOR 3«7 TO 12 

PRINT AT 7+J, 10; C» (J) 

NEXT J 

FOR U=4 TO IS 

PRINT AT 2CJ;" - "; 

NEXT J 

IF R=0 THEN RETURN 

gosub saao 

LET L= t iE=8) *7+ (E = U *12) 
FOR 1=1 TO 



FOR U = l TO 

PRINT RT 12 + J,1CI;CJ 

NEXT U 

PRINT RT 19,10, KS 

FOR U = l TO 5 

NEXT J 

PRINT RT 13,10;K* 

FOR J=7 TO 12 

PRINT RT 7+J,10;C*iJ) 



24. a 
250 
250 
27a 
2sa 
29a 
30a 

318 

32a 

330 

34-a 
3sa 
35a 
37e 

33B 

480 

4 IB 
420 
430 
435 
440 

4.sa 

455 

46a 
4.7a 

488 NEXT 

490 FOR 3 = 1 1 U i> 

588 NEXT J 

5ie PRINT RT 20,1+3;" " 

520 NEXT I 

53B RETURN 

530 REH 

59B REM BRE5ULTAT5 ET FIN 

600 IF E=0 THEN GOTO 310 

610 LET K=6 

520 PRINT RT 20-K,10;K* 

530 FOR M = l TO K 

64.0 PRINT RT 20 -K + N , 10 ; C* C6 + N ) 

650 FOR M=l TO S 

650 NEXT H 

570 NEXT N 

630 IF K=0 THEN GOTO 710 

590 LET K=K-1 

700 GOTO 620 

710 GOTO (A<2) *38 + ifl>7J *b0 + 720 

720 PRINT_RT 18,0; "VOU5 POUUEZ 

"POUR VOUS ENTRAINE 

3: " 
74.0 GOTO 900 
750 PRINT RT IS , 0; "PREsOUE" 

"XL FAUT REUOUER: " 




996 REM 

999 REM PRE5ENTPTIOM 

i.000 CL5 

L0lf PRINT RT 3,0; 

L0S0 PRINT Tfi6 7, -DE M*- 

1025 PRINT 

1930 PRINT TPP 7, 'HE @E ' 

1035 PRINT _ 

1048 PRINT TRB 7, "IB 11 BB M' 

1045 PRINT _ 

1050 PRINT TPB 7; "B 8 O" 

1055 PRINT 

1060 PRINT TRB 7 ; "B I B I' 

1065 PRINT 

107a PRINT TRB 7; "BJ R g R" 

1075 PRINT 

1030 PRINT TRB 7; "£3 S E" 

1090 FOR N=l TO 10 

110O PRINT RT 20,6; "MEMOIRE COUP 



TO 12 



TO 



"SEULS LES 



z** 



1110 FOR 
1150 NEXT M 
1130 PRINT RT 

app-' 

114-0 FOR H = 

1150 NEXT M 

1160 NEXT N 

1170 CL5 

1130 PRINT 

1190 PRINT " CE JEU CONSISTS R 

REPROOUIRE UNE LI5TE DE HQT=>i9> 
OU 12) PLUS OU MOIN5 UITE SELON 
LE CHOIX." 

1200 PRINT " " 

1210 PRINT 

1220 PRINT 
COHPTENT" 

1230 PRINT 

1240 PRINT " 

1250 PRINT RT ej.,«, 
FICULTE: B,B,B OU B" 

1260 LET N=0 

1270 PRINT RT 14-, N; " 

1275 PRINT RT 13,N;"1 

1238 FOR M=l TO 7 

1298 NEXT H 

J.295 PRINT RT 13,N;US 

1380 PRINT RT 14, N;" 

1305 PRINT RT 15, " m 

1310 FOR H=l TO 7 

1320 NEXT H 

1330 PRINT RT 14, N; " " 

1335 PRINT RT 15, N; J* 

1340 LET N=N + 1 

134-5 IF N=26 THEN PRINT AT 14 , 2S 

, J* 

1358 IF N=26 THEN LET N=8 

1350 LET RJ=INKEY$ 

1370 IF R*<?"1" AND R5{.->"2" AND 

R*-: :> "3" P.ND fi*< > "+" THEN goto ia 

1330 LET R=URL RS 

1390 CLS 

14 0O PR INT RT 10,8;' 

ENTTHBb B" 

14-20 FOR N = 

1430 NEXT N 

1440 CL5 

1450 RETURN 

1930 REH 

1990 REH CHRRGEMENTS: B O ; FS O 



: ^h\ ; 



TO 150 



GS 



"NE UOU5 DECO 



"GRGNE" 



750 PRINT 

770 GOTO 9w« 

730 PRINT RT IS, 
JRRGEZ PR5: " 

790 PRINT ,,-POUR COMTINUER : 

300 GOTO 900 

310 FOR N=l TO 10 

830 PRINT RT 18,0; 

938 PRINT RT 13,0;' 

340 NEXT N 

368 GOTO 790 

980 PRINT RT 0,0; 

910 FOR N=l TO B 

920 PRINT TRB 13;GSCN) 

930 NEXT N -.-..- 

935 PRINT RT 21,0;" 9 PUI 
■/■" 

940 IF E=l THEN GOTO 970 

942 FOP N=l TO 50 

-34-4- PRINT RT 17,10;""" 

946 PRINT RT 17,10; 'V 

948 NEXT N 

950 PRINT RT 17,10;" '■' 

950 PRINT RT 15,2, D-l 

970 INPUT RS 

980 IF RS<>"R" THEN GOTO 950 

990 GOTO 1 



200O FR5T 

2010 LET fi=12 

2020 IF R*="l" THEN LET fl=9 

2030 LET B=R 

2040 RRND 

2858 FOR N=0 TO B-l 

2868 LET H = INT (RND*S) +1 

2078 LET FS (N + l) =E* (N+5 + H) 

2075 LET G* (N+l) =**" 

2077 LET B(N + 1)=0 

2038 FOR H=l TO 10 

2090 IF CODE F* (N+1,H) < >0 THEN L 

ET G* (N+1,M) =CHR* (CODE F*(N+1,M 

! +128) 

2095 IF CODE Ft(N+l,M)<?0 THEN L 

ET B(N + 1)=B(N + 1)+1 

2100 NEXT H 

2110 NEXT N 

211S REM CRDRE 

2120 FOR N = TO 23 

2130 IF ■■ 

2140 IF 

" 1 N + U " . . " 

2145 IF N>B RND N < 12 THEN PRINT 

trb 23; "*"; N + l; " .." 

2150 PRINT RT 12,N;"#"; 

2160 NEXT N 

2170 SLOW 

2180 LET D=0 

2190 RETURN 

2990 REH __ 

"1000 REH TRI 5UR RS/CONTRGLE DES 

ERREURS. 
3840 PRINT RT 13 , 0; "SCORE" 
3050 LET Z=l 
7^060 PRINT RT 14, C 
3070 PRINT RT 15, C 
3030 PRINT RT 16 , C 
3090 PRINT RT 15,2. _ 
3100 IF R>2 RND A = 12 THEN GOTO 3 
160 
3120 IF R*="3" RND A=6 THEN LET 



□ 



D = ll 



RND A =6 THEN LET 



3130 IF RS = 

Z=7 

3140 IF R*= 

3180 

3150 IF R>2 THEN GOTO 3300 

3160 IF RS="3" THEN LET D=5 



RND A =6 THEN GOTO 



3170 


IF R* = "4 THEN LET £> = 




J 180 


PRI^^^ rt z-i,o. 




3 190 


FOR X=Z TO D+l 




:-2P0 


PfiJUT Pt tXJ i "i GS t.Xf 




j£10 


NEXT X 




3220 


FOR X*l iO 20+iR»="l" 


OR R* 




*40» (R* = "4.") #80 




3230 

^240 


NEXT X 

PRINT RT Z~l r 9i 




3250 


FOR X-Z TO D+l 




?2£Q> 


IF R*="3" THEN PRINT 




3278 


IF R*<>"3" THtN PRINT TI 








;■ 5 a 


NEXT X 




'•290 


IF R><i 1 HEN Ltl L*=t)-M 


3300 


Ltl ^=1 




■■ 3 -T 


PRINT RT 21,0,H» 




334Q 


IF R<3 THtN PRINT RT 
■JS "; 5; "PUIS W.--9- 


21,0; " 


335_e_ 


IF R>2 THEN PRINT f>T 
■^ ",D+l;"PUIS H^flr 


21,0; " 


3380 


INPUT X* 




33 70 

; x* 

3 380 
J XS 


IF R<3 THEN PRINT RT 


5-1,13 


IF RS="3" THEN PRINT 


RT D,0 


IF Rt-"4" THEN PRINT 


RT O t 1 


3iX* 






3400 


LET I*-X*+H*£l TO 10; 




34 10 


LET I$=I$ il TO IB) 




J420 


IF R<3 RNC I*OF$(i>) 


THEN L 


ET t 


= 1 




3425 


IF R>2 RND I*< >FS CD+1) T 




E = l 






PRI^^T RT S1,0;HS 




3440 


IF E=l OR S=D+1 THEN 


RETURN 



3445 IF R>2 THEN RETURN 

3458 LET 5=6+1 

3468 GOTO 3310 

3930 REM 

3990 REM S^P CHRRGEHENT E*() ET 
Pt () 

6995 REH R RTTEINDRE PRR GOTO 90 
00 POUR INITIALISER 

■3996 REM 

9000 DIM R* (8,6) 

3010 DIH B» (4 ,6) 

9020 DIM CtC12,4) 

9B30 DIM £*(60,10) 

9840 LET H$=" 

=H*(1 TO 10) 



TO 



1 



9045 LET 

9050 LET J$=Mi 

9050 LET Kt=Ut 

9070 LET fl*(l) 

90SO LET R* <2) 

9090 LET R* (3) 

9100 LET R*(4) 

9110 LET R* (5> 

9120 LET A* 16) = 

9138 LET RS (7) 

9140 LET R* (81 

9150 LET B* il) 

9160 LET B* (2) 

9170 LET B* (3) = 

91S0 LET B*i4) 

9190 LET C*(l) 

9200 LET C*(2) 

9210 LET C* (3) 

^220 LET C* t4) ■ 

9230 LET C* (5) 

9240 LET C* (6) 

9250 LET C* (7J 

92SO LET C$ (3) =" 

9&7Q LET CS (9) m" 

9280 LET C*(10) 

9290 LET C*(ll) 

93O0 LET CiCl&) 

9310 FOR N=l TO &B 

9315 PRINT AT 21," 

9328 INPUT E*CN) 

9338 PRINT RT 0,B;"E»( 

G4 <N) 

9340 NEXT N 

9358 DIM P*il2,12) 

9360 FOR N=l TO 1" 

937B PRINT RT 21, 

9330 INPUT P* (N) 

938S PRINT RT 0,0 

939B PRINT P*(N> 

9480 NEXT N 

941B DIM F*(12,10) 

9420 DIM G*(12,1B) 

9438 DIM B (12) 

9490 GOTO 1 

9495 REM 

9496 REM ( GOTO9500) POUR SRUVER A 
PRES CHRRGEHENT 

9500 SAUE ■'HEMQIRJ = T 
9518 GOTO 1 

9588 REH 

9590 REM (GOTO9600) PERMET DE CON 

TROLER LE5 TABLEAUX 

960O FOR N=l TO 60 

9610 IF N<23 THEN PRINT E% (N) 

9615 IF N=23 THEN PRINT RT 0,0; 

9620 IF N>22 AND N<45 THEN PRINT 

TRB ll;E*(N) „ _ 

962S IF N=4S THEN PRINT AT 0*0; 
963B IF N>44 THEN PRINT TAB 22; E 
• (N) 

9640 NEXT N 

9645 PRINT AT 21,31; H" 
9658 IF INKEY*<>"C" THEN GOTO 96 
50 

9660 CL5 

9670 FOR N=l TO 12 
9680 PRINT N;"-";P*(N) 
9690 NEXT N I 



"E* (N) ' 



; "I P* \H> 
"P*(";N; 
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LOGO: UN LANGAGE DYNAMIQUE 



VI - LES PRIMITIVES BOOLEENNES DE LOGO. 
Une fonction booleenne retourne un resultat qui ne peut etre que VRAI 
ou FAUX. LOGO en possede un certain nornbre. Elles permettent de 
tester les objets dun programme et de prendre des decisions en con- 
sequences. Voici la plupart de ces (onctions 
LISTE? <OBJET> Retourne VRAI si <objet> est une 

liste. 
MOT?<OBJET> Retourne VRAI si <objet> est un 

mot. 
NOMBRE'<OBJET> Retourne VRAI si <objet> est un 

nornbre. 
NOM? <OBJET> Retourne VRAI si <objet> est une 

vanable 

autrement dit si <objet> a un 
contenu. 
PRIMITIVE? Retourne VRAI si <objet> est 

une primitive du langage 
TOUCHE? Retourne VRAI si une touche est 

appuyee. 
EGAL? <OBJET1X08JET2> Retourne VRAI si <objeM> est 
egal a <obje!2>. Sur certains 
LOGO, le signe "=" est accepte 
SUP?<NOMBRElXNOMBRE2> Retourne VRAI si <nombre1> est 
superieur a <nombre2>. Le signe 
">" est quelquefois accepte. 
INF?<NOMBRE1XNOMBRE2> Symetrique du precedent. "<" 

quelquefois accepte. 
MEMBRE? <MOTXUSTE> Retourne VRAI si <mot>fait partie 

de <liste>. 
ET<COND1XCOND2> Retourne VRAI si <cond1> et 

<cond2> sont toutes les deux 
vraies. 
OU <COND1XCOND2> Retourne VRAI si au moins une des 

deux conditions est vraie. 
NON<COND> Retourne VRAI si <cond> est 

fausse. 
Remarque ; sur certains LOGO, le caractere "?" est remplace par "P" 

(cela donne MEMBRER EGALP par exemple). 
Vous allez trouver dans les programmes qui suivent de nombreux 
exemples d'utilisation de ces fonctions booleennes. 
LOGO est un langage surprenant : il permet de faire de facon simple 
des choses qui seraienl particulierement difficiles avec un autre ianga- 
ges. Par exemple. on peut recreer en LOGO, la piupart des instructions 
standars de BASIC. 

Recreer LIST n'est pas quelque chose d'evident a priori mais nous 
verrons que LOGO otfre une solution particulierement elegante. 
Bien entendu.simuler BASIC n'a rien d'interessant en soi mais cela peut 
etre un excellent exercice de programmation LOGO. 
Obtentr un catalogue de disquette se demande souvent par CAT suivi 
du numero du lecteur 
POUR CAT : LECTEUR 
FIXELECTEUR : LECTEUR 
CATALOGUE 
FIN 

Oes fonctions neutres (qui ne font rien) peuvent etre definies. On 
peutainsi ajouter des "accessoires" au langage : par exemple. THEN et 
ELSE. 

POUR THEN ;L POUR ELSE :L 

RETOURNE :L RETOURNE :L 

RN FIN 

Voici un exemple d'utilisation : 

SI INF? : N O THEN ECRIS "NEGATIF ELSE ECRIS "POSITIF 
RedefinirRUN : 
POUR RUN 

Nom de la procedure principale du programme a lancer 
FIN 
EtaussiLIST: 

POUR IMPRIME : LST 
POUR LIST SI EGAL? : LST STOP 

IMPRIME CONTENU SI MON PRIMITIVE? PREMIER : LST 

IM PREMIER : LST 
FIN EC " 

IMPRIME SAUFPREMIER : LST 
FIN 
La fonction CONTENU, utilisee dans LIST, retourne toute les procedu- 
res contenues en memoire centrale, y compris les primitives. 
Bien sur PLIST n'est pas plus compliquee ; 
POUR PLIST 
SORTIE IMPRIMANTE 
LIST 

SORTIE CONSOLE 
RN 

Les boucles FOR .. NEXT bien connues seront definies ainsi : 
POUR FOR : COMPTEUR : FIN : PAS ; INSTRUCTIONS SI SUP? : DEBUT : 
FIN STOP 

DONNE : COMPTEUR : DEBUT 
EXECUTE : INSTRUCTIONS 

FOR ■ COMPTEUR SOMME DEBUT ; PAS : FIN : INSTRUCTIONS 
FIN 



Exemple d'utilisation . FOR "I 4 10 2 [ECRIS : I] 
Est equivalent a : FOR I - 4 TO 10 STEP 2 

PRINT I 

NEXT I 

On peut redefinir tous les mots cle associes a FOR comme des fonc- 
tions neutres : 

POUR TO :N POUR STEP : N POUR NEXT : N 

RETOURNE : N RETOURNE : N FIN 



FIN 



FIN 



FOR "I 4 TO 10 STEP 2[ ECRIS : I ] NEXT "I 

Enfin, votci une redefinition particulierement interessante qui pourra 

etre utilisee souvent car elle conduit a des programmes tres lisibles : la 

structure TANTOUE. 

POUR TANTOUE : COND : INSTR 

SI EXECUTE ; COND [EXECUTE : INSTR TANTOUE : COND ; INSTR] 

FIN 

Beaucoup de primitives LOGO n'ont pas rite abordees dans cette sene 

d'articles. Leur rflle est secondaire mais il est souvent Ires pratique de 

les connaltre. Nous invitons !e lecteur a se reporter a son manuet de 

reference. 1! y a en effet de petites differences d'une machinea I'autre 

D'autre pari, les particulant6s des ordinateurs sont souvent reprises 

parle langage : 

- Le crayon optique et les manettes du TO 7 peuvent dtre oxploiiees 
directement a partir de LOGO. 

- II en est de meme des manettes ATARI, LOGO ATARI possede d'autre 
part, quatre tortues dont la forme et la Vitesse sont programmables 

- Le graphisme du GOUPIL III est d'une definition superieure bien que 
le nornbre de points par lignes et par colonnes ne soil pas tres different 
de celui des autres, mais chaque point peut etre colorie independam- 
ment de ses voisins immediats. 

A vous d'exploiter a fond les possibifites de votre machine. 
LOGOTEXT (Un traitemenl de tcxtes ecril en LOGO), 
LOGO est un langage orthogonal C'est a dire que pratiquement toutes 
lea combinaisons entre chacun des elements du langage sont possi- 



bles. Cela tient au fait que tout est organise autour de la structure 
de liste. 

Ainsi. les donnees sont souvent des listesde mots mais un programme 
n'est rien d'autre qu'une liste destructions. 

L'editeur LOGO est fait pour creer des programmes mais il peut etre 
aussi utilise pour composer un texte considere alors comme une liste 
de mots. 

A partir de la, beaucoup de fonctions du traitement de textes sont deja 
pretes dans le langage. C'est lecas par exempledu stockage d'un texte 
sur la disquette puisqu'il existe une fonction qui sauve le contenu de 
l'editeur : 

SAUVED "NOMFICHIER 

II est tout aussi facile de recharger un texte depuis la disquette 
CHARGE "NOMFICHIER 
Imprimer le texte se fait de la facon suivante * 
POUR IMPRESSION 

ENTREE .EDITEUR POUR TRANSFERT 

SORTIE .IMPRIMANTE LISLISTE 

TRANSFERT TRANSFERT 

SORTIE .CONSOLE FIN 

ENTREE .CONSOLE 
FIN 

Le programme ci-dessus n'est pas complet : il lui manque une condi- 
tion d'arret. Nous verrons comment ce problemeest resolu dans le pro- 
gramme final. 

La creation et la modification du texte utilise toutes les possibilites de 
l'editeur : insertion, effacement, etc. Celles du GOUPIL 3 sont enume- 
rees dans le mode d'emploi de LOGOTEXT (voir plus loin). Si vous avez 
un autre ordinateur, vous les trouverezdans le manuel de reference de 
votre LOGO, 

Le GOUPIL III sur lequel a eteecritce programme presente une particu- 
larite : les voyelles accentuees (e, e, a, u.) sont codees sur trois octets. 
Or les imprimantes n'utilisent pas cette forme de codage. LOGOTEXT 
effectue automatiquement la traduction. 



CHARGEMENT 

1 - Charger LOGO. 

2 - lntroduire la disquette LOGOTEXT dans le lecteur 0. 

3 - Taper RAMENE "LOGOTEXT 

4 - lntroduire la disquette sur laquelle vous stocker vos textes dans le 
lecteur 0. 



UTILISATION 

LOGOTEXT a deux niveaux de travail : 

- Le niveau "ecriture" : vous avez votre texte sous les yeux, vous etes 
en train de le corriger ou de le composer. Pour passer de ce niveau a 
I'autre, appuyer sur BREAK (au dessus des touches flechees). 

- Le niveau "commandes" ou vous disposez des ordres suivants : 
CREATION : Vous fait passer au niveau "ecriture" pour com- 

mencer lasaisie d'un texte. Si termine, appuyer sur 

BREAK pour revenir au niveau "commande". 
MODIFICATION : Vous fait passerau niveau "ecriture" et vous donne 

ainsi acces a votre texte. Peut-etre abrege par 

MODIF 
STOCKAGE "NOM ; Pour envoyer votre texte sur la disquette. 
IMPRESSION : Sans commentaire. 

REVISION "NOM : Pour rappelerun texte deja stocke sur la disquette. 
AU NIVEAU "ECRITURE", VOUS POUVEZ VOUS DEPLACER EN UTI- 
LISANT: 

Les touches flechees (entre le clavier litteral et le clavier numerique). 
F10 : Positionne en debut deligne. 
Fl 1 : Positionne en fin de ligne. 
F12 ; Positionne en debut de page. 
F13 : Positionne en fin page. 
F14 : Positionne en debut de texte. 
F15 : Positionne en fin de texte. 
Les touches F .. ne fonctionnent qu'en majuscules. 



VOUS POUVEZ INSERER DES COMMANDES DE MISE EN PAGE DANS 
VOTRE TEXTE : 

1 PAGE : Commence une nouvelle page. 

Q MARGE 20 : Impose une marge de 20 blancs dans toute la suite 
"U texte 



2 LIGNE 15 

SGROS 

SGRAS 

ssouligne 
Jbip 

Spin 



Saute 15 lignes blanche a I'impression. 
Imprime la ligne suivante en gros caracteres. 
Imprime la ligne suivante en caractere gras, 
Souligne la ligne suivante. 
Emetun bipsonore. 
Signale la fin du texte (indispensable). 
Les lignes de commande doivent etre marquees en majuscules et, bien 
elles n'apparaissent pas quand on demande une impression. 



OUELOUES CONSEILS : 

- Commencez toujours un texte par une commande % PAGE. 

- Si vous ne changez pas la marge, une ligne d'ecran correspond a une 
ligne d'imprimante : ceci facilite la coupure des mots en fin de ligne. 

- LOGOTEXT comprend quatre voyelles accentuees : e. e. a, u. N'en 
utilisez pas d'autres car elles ne passeraient pas a I'imprimante. 

CODAGE GOUPIL CODAGE ASCII FRANCAIS 

6 22,66,101 123 

6 22,65.101 125 

a 22.65, 97 64 

il 22.65,117 124 

Si I'ordinateur que vous possedez utilise le codage ASCII francais (ou 
plus probablement, n'a pas les voyelles accentuees). vous pouvez 
simplifier le programme. Mais ce n'est pas indispensable. LOGOTEXT 
devrait tourner sur n'importe quelle machine, certaines lignes deve- 
nant simplement inutiles. 

LOGOTEXT autorise 1'insertion de lignes do commande dans le texte. 
Celles-ci doivent commencer parle caractere DIESE. Elles ne sont pas 
imprimeesmaisagissentsurlamisoenpage. Par exemple. la comman- 
de PAGE declenche un saut de page. 

Leffet des lignes de commande depend bien sur do rimprimante 
employee. Les codes employees ici correspondent au jcu internatio- 
nal mais vous devrezpeut elremodifierla procedure COMMANDE pour 
I'adapter a votre materiel. 

II se peut aussi que votre imprimante ne possede pas toutes les fonc- 
tions necessaires Dans cecas, LOGOTEXT marcho quand meme mais 
certaines lignes de commande dovionnent inoperantes. 



POUR COMMANDE 

SORTIE CONSOLE DONNE "COM LL SORTIE IMPRIMANTE 

SI EGAL? COM [PAGE] (TAPE CAR 12] 

SI EGAL' COM [GROS] [TAPE CAR 14 DONNE "MARGE :MARGE / 

2 LISLIGNE DONNE MARGE MARGE ' 2] 

SI EGAL? COM [BIPj [TAPE CAR 7] 

SI EGAL? PREMIER COM "MARGE [DONNE "MARGE PREMIER SP 

:COM] 

SI EGAL? PREMIER :COM "LIGNE [REPETE PREMIER SP :COM [EC"]] 



SI EGAL' :COM [SOULIGNE] [SOUUGNAGE] 

SI EGAL? COM [GRAS) [TAPE ESC TAPE CAR 69 USUGNE TAPE ESC 

TAPE CAR 70] 

SI OU EGAL? COM [RN] EGAL? DERNIER DERNIER COM CAR 255 

[DONNE -FINI VRAI] 

RN 

POUR IMP 

REPETE :MARGE [TAPE CAR 32] 1MPCAR C 

IMPLIGNE 

RN 

POUR SOUUGNAGE 

TAPE ESC TAPE CAR 45 TAPE CAR 1 TAPE CAR 32 

LISLIGNE 

TAPE ESC TAPE CAR 45 TAPE CAR 

RN 



POUR IMPLIGNE 

TANTOUE [NON EGAL? :C CAR 13J [DONNE 'C LISCAR 1MPCAR ;C) 

POUR LISLIGNE 

DONNE "C LISCAR 

SI EGAL? :C "2 [COMMANDE) [IMP] 

RN 

POUR TANTOUE :COND :INSTR 

SI EXECUTE :COND [EXECUTE :INSTR TANTOUE :COND INSTR] 

RN 

POUR LISED1T 

TANTQUE [NON :RNI] [LISLIGNE] 

RN 

POUR ESC 

RETOURNE CAR 27 

FIN 

POUR IMPRESSION 

DONNE "MARGE 10 

DONNE -RNI FAUX 

DONNE "ACCENT [0 R : 2] DONNE 'cOUIVAL [123 93 96 125f 

ENTREE .EDITEUR SORTIE .IMPRIMANTE 

TAPE ESC TAPE CAR 82 TAPE CAR 6 

LISED1T 

TAPE ESC TAPE CAR 82 EC CAR 

ENTREE .CONSOLE SORTIE .CONSOLE 

EC CAR 12 

FIN 

POUR MODIFICATION 

ED 

RN 

POUR MODIF 

ED 

RN 




POUR IMPCAR :C 

SI MEMBRE? :C ACCENT [TAPE EQU ;C] [TAPE :C] 

FIN 

POUR EQU :C 

RETOURNE CAR ITEM POS ;C .ACCENT ;EQUIVAL 

FIN 

POUR POS :C :LST 

SI EGAL? :C PREMIER :LST [RETOURNE 1] [RETOURNE SOMME 1 POS 

;C SP :LST] 

FIN 



MISE EN ROUTE DU PROGRAMME. 

Avant de commencer la saisie du programme, initialisez la memoire 
centrale: 
.EFFACETOUT 

et creez sur la disquette. le fichier INIT utilise par la procedure CREA- 
TION pour vider l'editeur: 
FIXELECTEUR 1 
SAUVED "INIT 

Vous pouvez alors taper le programme, faire une rapide "chasse aux 
bugs" et le sauver sur la disquette: 
SAUVE "LOGOTEXT 

Voici maintenant le mode d'emploi, d'ailleurs compose sur LOGOTEXT 
et, pour bien fixer les idfies, le meme texte, tel qu'il apparafssait sous 
editeur avec les lignes de commande visiblos (celles qui commencent 
par DIESE). 

LOGOTEXT peut etre utilise pour le courtier sans aucun problome. La 
redaction de petits rapports peut aussi lui etre confiee. Ses perfor- 
mances plus qu'honorables apportoront a cos documents, une petite 
touche personnolle tres apprecice mais, bien entendu, la qualit6 do 
I'imprimante utilisee joue un grand rdle. 

Le programme peut cependant etre ameliorc: par exemple. vous pour- 
riez lui ajouter la capacite d'aligner automatiquement les finsde lignes 
(marge droite) en ajoutant des blancs supplementaircs entre les mots. 



POUR ALLER PLUS LOIN. 

Reexaminons l'ideo d'orthogonalite exposeo au debut de I'articlo. 

Nous avons dit que les programmes et les donnees avaient la memo 

structure: la liste. 

Autrement dit: 

- Un programme LOGO est capable de construire une liste. 

- Cette liste peut ensuite etre oxocutoo comme une brancho de 
programme. 



CONCLUSION: un program 
meme. 



o LOGO peut fncilemont so modifier lui- 



C'esl parfaitement possible. Je n'oi pas encore vu d'applications 
utilisant ce principe mais il y a surement des choses a faire dans ce 

domaine ■ 




12 



SCRABBLE 



Ce programme est une bonne version du jeu de SCRAB- 
BLE, bien connu des amateurs de jeux de lettres. Un petit 
defaut, neammoins, du non pas au programme, mais au 
TRS 80 lui-mdme : les dessins manquent un peu de preci- 
sion et beaucoup de couleurs. 

Jean-Francois De LiGONDES 



4 oEPPiroe :-2 

5 coToaen 

r tirc(2ie> coroa 

$ as P«IHTK193).'N0f1 DU PREMIER JOUEW". -INPuTDlt 
? FSIKT«333^*WM KJ DEUX 10* JOUEUft- . INFUTDZt 
IB CLS GOTO IK 

16 DOT912S. 129,129.129. 129. 17*. 17*. 176 175, !7£.:75.12S.I7e,17G, 176,176, 175,144, 
::■■' :--: 175. i",;-5. 129, ;2?. 175, 175, 176,1715,144.120, 160, 176. 176. 176,176. 123. 129. 
176. ITS. 176*176,144, 126. 150.144, 128, 12S. [20, 123.128.175.176,176.176, ITS, 144. 128 
;r :*Tm29. 123.129. 129. 129, 129, 128. 126. 128, 160,136,129,128,128.128,120,168, 
130. 129, 128. 128, 128. 128.184. 133. 123, 128. ISO- 158. 161, 138. 129.129.128.184.135.134. 
: 33. 129. 129. 168.130,161,138,129,128.128.184.135, 1?4 12C, 123. 129, 128.128,1*8,158. 
12? 

13 DflT«12?. 123, 129. 123. 128. 129, 129- 128. 128, 128, 129, 123. 129. 123, 136. 143- 140,140, 
140. 188. 129-184. 135. 123-12?. 129. 12?. 166, 158. 1??.!4-?, 143,143. 13?, 134. 143, 149, 148. 
172,138 151. 158, 141. l«. 148, 188- 133- 184, 143, 148. 149, 172- 158. 151. 138, 123.123, 128 
19 D«Tfll28.129. 184.143.140, 140. 128, 128- 128, 123. 123, 129. 129. 123- 123, 123. 128, 128. 
129,128.129,128, 129, 168. 139, 151. 153.128. 12?. 123. 129.123, 134. 130,129. 133. 173,144, 
168. 138- 12?- 128. 123, 134 J?;, 184, 133, 128. 128, 160- 158,1^.1.159. 12?, 123. 128. 194,135 
29 001*194,133.120,120, 120. 128, 169, 138,129. 128.128. 128, 128. 128, 128. 128, 128, 128. 
123.128.123,123.128.129. 138. 131. 131. 131. 131. 131- 128. 13!. 131- 131. 131. 131, 129. 130, 
12?. 129. 128- 123. 178. 12?. 131, 129, 125, 128, :33, 129, 133, 131,131,131,131.131.128.131 

21 DflTftl31, 131, 131, 131. 12?. 138. 131, 131. 131, 121. 131. 123. 131, 131, 131. 131, 131, 129. 
129. 123. 128,128,128, 128, 123, 129, 128, 128, 128, 128. 128. 131, 131. 121, 131, 131. 1 31, 131, 
131. 131. 131, 131. 131, 131, 131, 131, 131, 131, 131, 131. 131. 131,131. 131. 131. 131. 131, 131 

22 WTB131.!31, 131. 131. 131, 131. 131, 131, 131. 131.131. 131. 131. 13!, 131. 131, 131, 131. 
131. 13!. 131. 131. 121, 131. 131. 131. 131. 131. 131, 129,129. 128, 128. 129, 128,129 

29 F0OI-1T0196 REflOO « I >-0 NEXT G0T09 

38 WT942, 43. 36, 45, 43, 43.43, 42, 45. 43. 43, 36. 45, 42. 43, 39, 45, 45, 33, 43, 43. 43, 33,45-4 

3 45, 39,41.43.43.38.43.43,36,43. 36, 43, 43,43. 39. 45,43, 36. 43, 45, 33, 43, 40. 36. 45.45, 

43, 38, 43. 43. 36, 43. 45, 45,43. 33.43,43,43.43, 38. 43.43,43,43, 43.X.45.45, 43 

48 WT933. 43, 43,33, 43,43, 43. 33,45, 42, 45, 45,03, 67, 32,69,66, £5. 75. 5?, 45. 45, 42, 45,4 

5. 36- 43. 43. 36. 45- 45. 35. 45. 4?, 35, 43, 45,43.33,43,45, 43, 33.45,45.33.45.43,43,33, 45, 

45.43. 43. 43. 38.43, 43. 43. 45, 38- 43, 43. 45, 43, 36. 43.45, 38, 45, 45. 36 

58 WT««:. 45.43,28-43,43. 36, 45.43, 39, 43, 43,36. 43. 35, 45.^5, 45. 38, 45,45,43, 39,45,4 

5,33,43.45,4335,4;,45.43. 39,43. 42, 43,36,43,43, 43,43,42,43,45,45,36,43,42 

-- ::-..-■; :..-, -, ..■- --i_r , ;•-?; -;■;:■_; _ .; ■_?";■■: -.-_--_-_.] •;- _-_,--_l. . 5 

ETURN 

110 IFJ8-1 J8^e 3CT0U3 

111 :PJ-2THEKJ^IELSEJ'2 
1!3 COSUB608 

114 SETfX.YJ ■((K'PEEKf 14488)- [FHC<4DRiaC>t60RKK^2(n3>6443RIK-*12enEHfI5ELSE114 

115 PESETA x,Y) 

129 I^^3Tur>.i :ve ;,_^[^-/,,^rjeJ14^.J = ;F^<'32T^N:5?: l _- = ;!:<-'-;.iTuE>u^EL3EII : >r^ 
129THEN259 

130 Y-Y-3I-I-14COT0178 _^ 
148 Y«Y*3-I»I+14'WT0178 ^^ it* 

13G X-»3 I-I-1K1T3178 ^% iLi ■ 1 

IW :->»9I-I-*l ^^^^^^ |>VJ 

178 IFX<14-x-14=I*I+I ^W^^^C^^^ ^^^^ 

172 J.FXM18 X-I1SI-I-1 ■ ■ %'*^a*r 
174 IFY<8 Y-8>I*14 ■ 1 »^^ 
176 IFY>39'VK»-I-I-14 " 

173 SETCX.Y) OTTC114 

182 flit-" t-*----x---t-t- 

184 R2t-- -t--*--'-f---i* a 

196 «3*«* - - t --•,-»,--- t - -- 

188 fH«-" <--». --•---»,--§■ 

1343 fl3t=- ----),---_(,_--_- 

192 Ft«*-" - » - - - t - - » - - - t -* 

134 fi?». • i--SCRfi88LE--*" 

136 ft8t'- --»-_»- _ t - _ g _ . 

1?9 R?t-" -f---|--t---t-* 

288 Pflf" - - - - t - - - - 1 - _ - -- 

282 PSf" »--»,--•--->, --V 
294 flC»=- - - l - - I -«---(,- -" 
286 RW-" -»--0-_-#--_4-« 

283 9E«-- r-f--__t---»-I" 

289 PSIKTfllt P9ISfTR2» P?IHTfl3t P?IHTR4« P?IHTR3« PPf.WTfJ6t-P»;HTfl7* FPINTR9«PP.rN 
7R?t PPIMTWS PBr>.7P9» FPIHTPCt PR I HTPM ' PR I KTflEi 

218 COSUB78'I-rC05U886e 
228 50T0119 
238 m3U8989 SSTCX.VJ 

250 B«-"PPIM79<980).M.",OUa HOT PRQPCSEZ VQUS 'J ' BOWBO' lf8O""«E»*TNBe308E 
L$EIFl_EN<9t»i3THEhW--" 
; ;=;,. ■t-e-.-;:;,—?:! "l*.??? .^: CO'Oi:? 

-.-'; :.*3 -:«;■=! "5LS/ St j Ir-33C'rlID*et,D.l>X63reR3C<mM<Bt,D,l)>>?9THf:MU=rwEXT 
IFU-1'1*-0'M9U8900 G09J879 OTTCr260 
263 NEXT 
263 OTSU879 
275 QKUS98B 

290 50TOI388 

458 F0RD-lT0L£NO»).C0S«jei6W'C i :i>-«S«riI&t/W,M)) 

453 WSuei318 

468 tFB-1 1-1*14 

473 IF9-2 >l*l 

490 B-C«V*9V3-1J t64Wys2>-l 

4?9 IFB-2 PP:>fT8^E-4)*<4»0)),riIE)4XB«.D,n; 

580 JFB*l'PPINTi«E-64>+'r64t!>); 1 -!rOKB*,D,l>: 

313 NEXT IFHT/:>8'Pl-PlK2tMD> 

328 iFnT^,-9 Pi-P1M3CKT> 

530 LT-e'U>8-n08'KT-8 

333 IFS-1 S-8-P1-P1+59 

340 IFJ-1THENT1-TI+P1 

542 IF>2.T2-T2*PI 

343 P'O Pl-9 PETUPH 

508 G03Ue58O PPIKT.?(986),-C'EST Pij TOUR DE 'i 

519 IFJ-lTHEXt-LEFT»<[-lt. 13 >EUEDt-LEFT*'D2t. 13/ 

520 PPIt'fDt, 
525 W3U878 
639 PETUPH 

710 IFJ-1 J3«-J»*JI« 
713 IFJ-2J3«-Jt*J2t 
713 M*8 

?29 FQFC-lTOLEWBt) FOPDl-lTOLD*'J?t, IFMIDf Bt.O, I /-MID* J3t, 01 , 1 >THEH730ELSE74 
9 

730 &l-L0lfJ3t) H*I 

",:• Fncfl,iTOLPI< J3») ! iniID«J3«,n,l^f1I[«8t.D.l/fM>v»0THEH734£LSeK*-Kt*ntC'«J3t 
,fi, 1/ C0T0736 
734 VI 

736 HEXTfi J3t-K« V-8 ■/.*••" 

7^0 liEXTDl IFH-1THEM730O.3EQKU8742 IFH-irHEH730EL3EPPIMT?'3C5 .>. -Jty-' K'^EZPft? 
LES LETTPE3 DI3P0HI9LE3V JSt-'" ■ Lt-" ■ Jf" ■ FOPU- 1 702080 MEXT K)5IJ8880'L-1 PET 
URN 

742 FOPft-lTXEWJ3»)'IFHI0«J3*.fi.lJ--«*fiNr)Vl-8THeH744ELSEKlt-K]t*flIO«J3«.ft,l>- 
COT0746 
744 Vl-1 H-l 

746 fCXTPi Vl*e'J3»-Klt'Klt----RETURM 
750 H-0NEXT 
732 IFC9-1THEH2338 
734 0-8 
736 COTD913 

900 PPIHTe<9?6;.' ") PETUPH 

313 IFLEH<J3t>-eTHENS-l 

920 FOPOl-lTO<7-UW:j3t?)M3'jei089 It»-m*Ft f«vj 
930 IFJ-1 J10MJJ**Ht C'237 F0PD1-1T07 PRJHTW C),H1W Jit, 01 , 1 ), C-C-64 ICXT J3t- 

■■•no--* 

932 1FJ-2 J2t-J3«*lTt C-318 F0P01-1TQ7 PPlr(T9<C/.f1IMf J2t,Cl. 1 » C*C*64 ■ NEXT ■ J3»- 

■■«••■" 

940 J»--' 

930 PETUPH 

960 PRlNT8<129),LEFrt<Dli,4>i PRINTS 198).LEFTt/D2», 4 ), 

970 >237>ro-ttl»lT07'GMURSM PRIHTKC),F»J G-C*64 Jl»-Jli»FtNE/T 

989 C-318'F0POI-lT07-O35ueie88'FPIHTSCCi,Ft;'C-C*64 J2t-J2»*Ft NEXT 

098 PETIJPH 

I TOO C0:'jei819 

1913 PETUPH 

1818 &-PHCX26) 

1013 C0SU91822 Su/fe page 18 
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COURBES REALISEES AVEC LE 
PROGRAMME "DESSINS AGOG" 
SUR CANON X 07 d'Alain NO- 
GUES 



OPIICW CJOISIELI.J.Joj*! 
DEOCME UK cm Cae pul 
□ecn_f«E us 0( tan rul 
sens ou ttwct ti =, -i». 
IreRErcHr wgle Mh>u! 

f«.[ CE LCPMIT Cd*<,<>) 

inCRErXHT as fwrott f#u] - 

FK(UNC£ INOJEttNT. 

Nortwe de cdies ou nour 

LCHGUCUt DU C3IE bu).. 
IKCREPENI OU CDtE t»« ). 
FBEOUCpaCE irCRErCHI. 

six o 



E DE r 



rirs r 




OPTION OOISIEtl,2,S au 4] 
OEOLAGE SUR OX C*n ml 

decpcsce slr err em m>) 

SENS OU rpfiCE tl eu -1). 
INCRErCur i^flCLE Cd.,,.1) 
"HOLE ce DEP*tr (<!,,,.,; 

IKWEnEnr ou raton Cr*i] 

FREOLCrCE INCJtEWMI 

NOTWE OE COTES DU nOMF 
LCHOUELR DU COIE [*•■).. 

iMC«neN7 ou cote f»»*J. 

FREOUEfCE INCXErKNT.. 
INO-INlilISCN td.,T.,).. 

sor ox tai ou sob r en. 
powre DC nariFS preuus. 

Pr«WtrRE COULEURi xc. .. 
FRECBJCNCE COULEUR .. 
COUUEUR OE ocp»*r . 





LOGICIELS CANON 



Explorez les etonnantes possibilites de votre CANON 
X-07 avec les quelques 40 programmes reunis dans eel 
ouvrage. Des programmes performants qui fonctionnent 
sur le X-07 de base (8 Ko} calculs scientitiques : 
tions sur les matrices, conversion de coordonnees. 
racines de polynomes. integration, interpolation, etc Des 
utilltalres : gestion de compte en banque. histogramme. 
impot. hard copy, trace de courbes. biorythmes, etc Des 
jeux: loto. poker, ardoise magique. un peu d'EAO. un 
super jeu d'aventures : le Tresor du Galion et trois "gros" 
programmes qui necessitent une carte d'extension 4 K : 
Astral. Tierce et Surfaces et Volumes, 



Canon 




JEUX 
ET 

PROGRAMMES 



ORDINATEUR INDIVIDUEL 




1. EQUATION 2eme DEGRE 
2, INTE6RRTIQN 

3.RACINES DE POLYNOME 
U0TRE CHOIX <1. ■■£.-' 3) ? 



S5 



UN LIVRE SIGNE SHIFT EDITIONS ! en vente Chez les 
distributees CANON et par correspondence. 



Sx- 



BON DE COWMANDE A DECOUPER OU RECOPIER. 

A ENVOYER A 
SHIFT EDITIONS : 27, rue du GAL-FOY, 75008 PARIS 



PRIX UNITAIRE: 95 F 

contre remboursement - France -(- 20 F D, etranger ) 30 F n 



REGLEMENT JOINT 
cheque O CCP a 



.OOF DATE: 

SIGNATURE: 



sens ou twa a au -II. 

INCREHEMr ««a.E ldi|i") 
WO.E OE 0€r««t C0....O 

[HCREnEnr ou RitTON trmi 

FREQUENCE IHCREnEHI,, 
NOnoRE de corES du nor if 
L0HGUEUR 0U COIE (*••).. 
[NCREnCrir DU COTE t-*»J. 
FREQUENCE IKREnEKI. 
[HCi-INrtlSON Mtllttl,, 
SUR OX CB) OU SUR R (I). 

notwe oe notiFS freuus. 

PiWiTErRE COULEURi <c. 
FREQuEr<CE COUUEUR . . 
COULELR OE DEPflRt ., 



•n i:» -UR 



it.B R.H •.« 



H.B .'*.» '0.1 J».R 10. * 



n no m 





%#" 




KING'07 



■ ■■'. 



Qui aurait pense que KING-KONG puisse loger dans le 
petit X 07 ? En tout cas. aidez-le a en sortir ! 

Pascal DESPLANCHES 

Mode d'emploi : 

Apres la page de presentation, appuyez sur n'jmporle quelle louche 
(sauf BREAK), pendant que te menage defile. Lejeu commence et vous 
dtrigez le petit personnage a I'aide de fleches. Pour sauter. utilisez 
la barre d'espace 




CN 



3^ 



■ ":N :::■■; 



10 CONSOLE.. ,0 

13 DinA<BC>tDiniMet-'> 

15 WA*>3iD(l>**r)iD(2l-0iD(3>*>0iDt4>*>0iD(3»> 

17 TP- -3: GOSUB 2O0OO 

20 CONSOLE. ,,0 

25 GOSUB 10OOO:L0CATE6,2 

32 CLS 

40 FOR N-lT017:A(N>-N:AINf3a)-N:NEXT 

41 FOR N-IBT035:A<N)-«36-N):A(N>36>-(36-N> 

I FOR N*»l T076iIF N.IBTHEN B(H)-0 
43 IF rj 17ANDN 76THEN B 'Nl « 1ELSE 1FN -35ANDN; 54THEN B(N)-2 
4J :- •! 93 THEN BIN)-3:N£XT ELSE NEXT 
50 FONT*tl34)=-49,72.4B. 72.0Q. 255. B4, 255" 

*0 FOR M-O TOStFOR H-0TO18: LOCATEH, NiPRINT CHR* ( 1 28) S : BEEP20-M. 1 : 
65 N£>'T 
70 LCCATEO,l:PRINT" ": LOCATE18. 2: f R INT" " 

72 LOCATE 16. l:PRINrCHR*l'.29>! : LOCATE2. 2: PRINTCHR* II 29) I 

73 LOCATE 14. 3: PRINTCHR* ( 1 29) : 
75 LOCATE lB.O:PRINT" - 

90 «-l: v-3:CHR- 128: LOCATE 17.0: PRINTVA: : LOCATE I 7,0: PRINTCHR* 1 129) i 
IGO X2-X:V2-V:IF X=2ANDY-0TH£M GOTO 50O 

101 IF TPjOTHEN GOTO 250 

102 A»STIC> IO] 

110 IF A-3ANDTP:0THEN GOT02OO 

111 IF A-3 ANDSCREEN(X*1.Y)=133THEN5000 

-7 ANDTP:OTHEN GOTO 210 
121 IF A-7 ANDSCR£EN(X-1. Y)-133ThEn5OO0 

1 24 I FA= 1 ANDCHR- 1 29THENY- Y- 1 : G0TO3OO 

125 IF A-5ANDY.:3THENIFSCP£EN(I(.Y.l> = 129TMENY»Y*l:GOTO 30O 
130 A-STRIG(O): IF A— 1 AND TP'.-4THENTP-3:GQT0 250 

162 GOTO 300 

165 SC-SC-7:Tp.TP-l:P-CHR:TTT-SCREEN<X.Y):L0CATEX2. Y2 

■ '■ V2THEN PRINT CHR«(P)S 

175 IF TTT-l2BORTTT>l29THENCHR=TTT 

180 LDCATEX,V:IF TP<OTHENPRINTCHP.» ( 132) i :GOTOIOO ELSEPRINT CHR* ! : 
2O0 X-X-l: IFX.I7TH£NX-17:G0TO 300 
200 GOTO SOO 

2IO X-X-l: IFX<1TMEN X=1;GOTO SOO 
240 GOTO 300 

250 LOCATEX. Y: PFtlNTCHRKl 341 i: GOTO 300 
300 IF NBR'5AND(INTCRNDU I *301 >=1THEN D(NBR*1 ) - 1 : NBR-NBR+1 

310 N-N*1:IFN>NBRTHEN N=0 

311 LOCATEA(DtN) >.B(D(N> > 



-oi 



PI INTI ■■■■ i 
D<H>-0<MI 


1281 : 


II am 


rHEH dini | 


| | H 






t.VM IFRH-I J3THEH BOTC B 










GOTO 165 




SOSO100 


a.9iL0CATES,2lPflIPfT-B0MJfi 10 ■ 



FOP N-1 rOZOlBEEPN, HNEX1 
• GOTO 40 

" BEEPlO.ZOi VA-VA-liIF V ft. D THEN 9010ELSE GOTO 40 
15 IF SC HIGTHEM HIG-SC 

O.CLS:LOCATE O. l:PRINT-VOTRE SCORE: "ISC 

5 IF SC HIGTHEN HIG-SC 



5020 


OCATE 0,2lPRIMT"HI6HT SCOPE'sHIG 






bOOO M-INKEYtilF A*-""THEN G0TO60O0 




6010 GOTO 10 




[... .;.., 






1 0010 






1 


FONT* t 1 29) *"255. 72. 255. 72. 255. 72. 255. 72" 




10030 


FONT*! 133) ="0,0.0, 1 6.56. 1.HFF.1.HS5. 255" 




1004O 


FTJNT»<132)--BH30,0.l,H7C.!.H30.fiH4a.!"=F.M-ti 


&HFF- 


l6lO0 


RETURN 






FONTK 129) ="0.0,0.0,0, 0.0,0" 


J$k 


2OO01 


FONT*', 129) -"0,0. O.O. 12.28,28,60" 


"J- -.-■- 


FONT* < 130) -"0,0,0.255. 255. 355. 255, 255 " 




20003 


FONT* ( 131 l-"0, 0,0.192,240,248,248.255- 




■ •-■ 


FONT* 1132) -"0,0, 0,0, 0,0, 0.0" 






FONT* (133)- -0.0. 12,56,64.64.64,64" 




2 OO 06 


FONT»ll34>-"22'J, 196. 192. 16.03. 08, 12. 136" 
F0NT*{135)="152. 129, 164, 164.0, 60, 192,0" 




20009 






20009 


FONT* 1137) ="192, 192,240.28, 4.4. 4. 6B* 


Y : 


20010 


FONT*! 138) -"32. 16, 16.08. 04. 08, 16, 16" 


200 1 1 


FONT* (139) «■■ 69,64.60.0. 192,60,0,0" 


20012 


FONT* (140) ="255. O. 192. 192. 192.0,0,0" 


ML 


20013 


FONT* (141) ="208,0,255, 192. 192, 60, 0. 0" 


20014 






2001S 


FONT* (143) -"16. 9, 4, 4. 4. 56. 64, 124" 




20016 


FCNT»U44)="4,B,B,8,B,8,4S, 192" 






FONT* (145) -"255,0.0, 0,O, 0,0,0" 


-^ T 


20O 1 9 


FONT* (I 46) -"224, 16.16, 16, 16, 16, 12.0" 


2O0 19 


FONT* (147)= "B. 16,32.32.32,24.4.255" 




2- 020 


F0NT*(14B)="8, 16,32.32. 32.24.4, 255 




2OC80 


LOCATEO.O 


/\- 


20O90 


CLS 


jM-f 


20100 


LOCATEO.O:FORN=1T05: PRINTCHR*! 1 27»N> ; :NEXT 




2OU0 


LOCflTEO, I:F0RN=!T05:PRINTCHR*(132*NI i 


NEXT 




20120 


LOCATEO,2:FORN»1TQ5:PRINTCHR«(137+N); 


NEXT 




201 30 


LOCATEO. 3: FORN- 1 T03: PR I NTCHR* ( 1 42*N> t 


NEXT 




20200 


LOCATE 7,0:PRINT"D0NKEY KING"! 




2O300 


LOCATE 7.1-.PRINT" "; 




21000 


A*="L' IGNOBLE KING KONG hA ENLEVE ET EF1MENE 


SUR UN E 


21100 


FOR N-l TO LEN(A*):L0CATE7.3 




21103 


Z*=1NKEY*:IF Z*<>""TMEN RETURN 




21110 


PRINT MID*(A*,N. 12) i:IFN-lTHEN FDRn-1 T0300 


NEXT 


21115 


BEEPN/2.4 




21200 


FOR 11=1 TD25:NEXT:NEXT 




22000 


FOR N-l TO 10:L0CATE 9, 3: PRINT"HELP ME ' " i 




22090 


BEEPI0,4:BEEP12,4 




22100 


FOR H=i T020:NEXT:L0CATE9,3:PRINT" 




22200 


FOR M-1T0 20:NEXT:NEXT 




30000 






4 OOOO 


FORN- 128T0 145: FONT* IN) -"O.O, 0,0,0. 0,0, 0": NE 


XT 


45000 


RESTORE46000:FOR N-l T0O1 4: READS, A: BEEPO, 1 : 


BEEPB»50. 











;■?' - 



ECNAFAUDAGE 



COLORAM 



En avant les artistes ! votre TEXAS se transforme, d'un 
coup de palette magique en chevalet. A vous 1'art abstrait, 
mais c'est pour le bon motif ! 



Michel CORRENOZ 



-fl-99 



A/* 




ERRATA 

Une virgule a saute dans le listing 

"Romeo et Juliette" paru dans le 



532 CALL CMBB(4a. "FFS12iei91S181FF".5&. 
-6fflB COLL CCLORfi. 16. 9. 2.2. 1,9.9. I. 111. CI 
£!B CALL yCHflnt 18. 3.56.5' : 1 COLL YCHQm 



IS. iw.se. S) 



"1 CREEP UN NOUVEAU DEBS IN 



CALL C 



GOTO AOO 
C-MAXIC-J, 1 

GOTO 600 
C-MIN!CH,: 

GOTO 600 



GOTO 6' 
1,32):: GOTO I 



GOTO ( 



160 DIM ln*(24) 
I 70 CALL CLEAR 
180 PRINT i-OUe VOULEZ VOUS FAIRER": 

APPELER UN DESSIN ENREGISTRE" 
190 INPUT P :: IF R-l OR R-2 THEN 200 ELSE 190 
2O0 ("J?. R GOTO 210,800 
210 GOSU& 1"'." 

22',' BOSUB 720 :: CALL CLEAR ;: GOSUB 930 

230 EOMN*3 :: CALL CLEAR :: CALL SCREEN (ECRAN) : : GOSUB 980 
740 F-ECRAN :: FOR KOUL-1 TO 13 :: CALL COLOR (KOUL.KOUL. F ): : 
OLOR 114. ECRAN, ECRAN) 
230 1=12 :: C-16 :: GR-2 :: COUC=2 :: GOTO 6IO 

'•>■ i.r.i 1 "- 
270 CALL KEV(5.K,S) 
780 IF S-0 THEM 270 
290 FOR V-l TO 3 :: NEXT V 
-Of. if K»ASC("/")TMEN CALL HCHARIL 
3IO IF K-67 OR K-101 THEN L-MAX (L- 
320 IF K-B7 OR K-I 19 THEN L-NAX(L- 
330 IF K-BB OR K-120 THEN L-MINIL* 
340 IF K-82 OR K-114 IHEN L-MAX(L- 
350 IF K-68 OR K-1O0 fnfn 0MIM40 
360 IF K-67 OR K-99 THEN L-"IN(L*1 
370 IF K-B3 OR K-115 THEN C-MAXIC- 
3BO IF K-TO OR K-122 THEN L-MIN(L> 
390 IF K-ASC(*I")THEN 560 
400 IF K-ASC("0-)TH£N 410 ELSE 420 
410 ECRAN- 1 -ECRAN* (ECRAN< 15):: CALL SCREEN(ECRAN) i 

GOTO 270 
420 IF K-ASCC'F") THEN 430 ELSE 440 

430 F-1-F»(F< IS):: FOR I-I TO 13 11 CALL COUORIt.J 
440 IF K-ASC<"2")TNEN 450 ELSE 460 

450 FOR G-2 TO 13 :: KOUL-1 - (KOUL" (► OUL< 16) ) : : CALL COLOR (G.KOUL , F) ; 
GOTO 270 

460 IF K-ASC("0")THEN 5B0 
470 IF K-ASC("H") [MEN 4BO ELSE 490 

4BO FOR LL-1 TO 24 :: FOR CC-1 TO 16 :: CALL GCHAR (LL. CC, X ) 1 : CALL ) 
C.X):: NEXT CC I: NEXT LL II CALL SOUND ( IOO, 300. 3) I 1 GOTO 270 
490 IF K-ASCCV1THEN 500 ELSE 510 

SOO FOR CC-1 TO 32 :: FOR LL-1 TO 24 It CALL OCMAR(LL, CC, X ) » 1 CALL HCHAR (25-LL.C 
C.X):: NEXT LL 1: NEXT CC ;: CALL MUMX 100.300,3) II GOTO 270 
510 IF K-13 THEN 66O 

520 IF K-ASCi"0")THEN CALL CLEAR :: GOTO 220 

530 IF K-ASC( _ L"I THEN CALL HCHAR (I.. I ,B«CUUL*OR*24, 32) I > GOTO 270 
540 IF K-ASC("K">1HEN CALL VCHAR I I , C.8«C0UL*GR*24,24) 1 
990 GOTO 270 
560 COL-COL*! 

570 C0UL-COL-15»INr(CQL/13)-! J 
5BO G-G»l 

590 5fi-G-B«INr(0/B): : GOTO 610 
MM IF K.98 THEN 630 
6IO CALL VCHAR(L,C,24*(H'COUL) • 
620 GOTO 270 
C3'i CALl GCHAR(L.CB) 
640 IF IIIOO THEN G-2 ELSE G-B*20 

/,5-j CALL VCMARIL.C.G): : FOR V-l TO 50 :: NEXT V :: CALL HCHAR (L, C, Bl : 
660 REM •■■FIN DE DESSIN*** 



CALL CDLOR(14,ECRAN. ECRAN) : 



GOTO 270 



KLL.33-C 



B*S\C 



670 FOR L-l TO 24 : 
CALL GCHAR (L.C, 
NEXT L 
690 A-ECRAN-2 

700 CALL CHARSET :: FOR R-I TO 14 II CALL C0L0ft<R.2-i 
710 INPUT "FAUI IL ENREGI5TRER CE DES9IN7 (0/N) ">"1 ED* 
720 IF ED*»"0" THEN 740 ELSE 160 
730 [F ED»-'N" THEN 160 ELSE 710 
740 REfWENREGISTREMENT DU DESSIN"* 
750 OPEN «2:"CS1". INTERNAL, OUTPUT, FIXED I 2B 
2:ECRAN,F.K0UL,CX* 

TO 24 
2:IN*(L):r PRINT L :l IM<L)- Hn tt NEXT L 

LECTURE 

EAR :: OPEN "2: H CS I " . IN1 ERNAL , INPUT .FIXEI 
2t ECRAN, F.KOUL.CX* 

TO 24 1: PRINT L :: INPUT N2: In* <L> : : NE 
EAR :: CALL SCREEN (ECRAN) ! 1 GOSUB 920 



BO'.' CAl.t CI 

BIO [MPtfl 

B20 FDR L- 

B30 CALL CI 

B40 FOR KOUL-1 TO 1 



B60 



) FOR L- 



1 CALL COLORIKOUL. 
TO 24 1 1 FOR C-l TO 32 

IN*(L), 1,1)-"1" THEN SCT-3 ELSE SCT-2 
.(SEG*IlM»(L) , 1.9CT)) I 
,9CT+J,LEN(IM«(L) >-SCT) 



NEXT L :: CLOSE K 
1 GOSUB 9B0 
NEXT KOUL 



RESTORE :: FOR DS-1 TO 26 : 1 READ I 

:: RG-INTIDS/91 t : CALL HCHAR ( 1 '2* (D! 
5-9*RG) ,4KI0»RG),96«DS) : : NEXT DS 

iE2 B DE9SINS " II DISPLA' 



70 CALL HCHAR(L,C 
080 IM*(L)-SEG*(IM! 
890 NEXT C s: NEXT 
90O GOTO 250 
910 REN»>* 'PALETTE 
920 CALL CHARSET ! : 
: NEXT OS : : RETURI 
930 FOR DS-1 TO 26 

CALL HCHAR(1»2*(DS-9*RQ) .4+ 
940 DISPLAY ATC20.2) : "CHOISI! 
A POUR AVOIR UN ECRAN VIERGE' 
945 ACCEPT AT (24. B) VAL I DATE (UALPHA) BEEP SIZE(8)lCX« 
950 IF LEN(CX«><a THEN DISPLAY AT < I 9. 2) : "J * AI DIT 7 DE93INS 
960 RETURN 

970 REN»*REDEFINITION**" 

9BO FOR Z-l TO B II CALL CHARPAT <ASC (BEG* (CX*. Z, 1 ) ) *32,L« 1 1 1 
990 FOR Z-l TO B II FOR H-O TO BM2 STEP 8 || CALL CHAR131*) 
NEXT Z II CALL CHAR(143.RPT*C'F", 16) )! I RETURN 

OOO DATA "FFFFFFFFFFFFFF", "03O30 30303030303" 

OlO DATA "OlO307OFIF3F7FFF","BOCOE0r0FOFCFEFF 
C080", "COCOCOCOCOCOCOCO" 

DATA "OOOOOOOOOOOOFFFF" , "FFFFOOOOOOOOOOOO 
C3E7" 

DATA "80[:0EOF0FOEOC0B0","0OOOOOOOlB3C7EFF 
O3O1"."1BIBI0FFFF181BIB" 

040 DATA "2424E7O0OOE72424", "OFOI 'OPOWrOFCfOPO 
:66C3C3663CI8" 

050 DATA "3C7EFFFFFFFF7E3C", "1824420116244281 

BIB", "AAOOAAOOAAOOAAOO" 

060 REM ••■•RECiLES' 

O70 CALL CLEAR II DI9PLAY AT(2,2)I"A L'AIDE DE O FORME 

"VOUS AURE7 CHOISIE! 

OBO DISPLAY AT (6.2) 
CHNICOLDR" 

090 DISPLAY ATI10.2: 
DISPLAY AT (27, 2 



CALL CHAR(96*DS,A* 
l),2*<RG*I0) ,64*DS) 1 
■1.1): "COMMENCEZ PAI 

" tt GOTO 940 



H.L 



NEXT H I 



FF7F3F1F0F07O3OI ". "FFFEFCF8F0E0 
lB3C7EFFFF7E3ClB-. H E7C3aiOOOOBI 
FF7E3C18OO00OO00- , .-0lO307OFOF07 
E7E7E70000E7E7E7". -FFFFC3C3C3C3 
C3E77E3C3C7EE7C3", "BIC34Z2424 18 



QUE" 



'VOUS POUREZ COMPOSER ' 



DISPLAY * 



DISPLAY AK4.7) 
"UN DESSIN EN TE 



ER" 

110 CALL KKV (0,0,8) 

120 CALL CLEAR 1 1 I 

130 DISPLAY AT(4. 1 ) 

140 DISPLAY AT 15, 1) 

A FORME" 

150 DISPLAY AT<7, 1) 

160 DI9PLAY AT (9. 1! 

170 DISPLAY ATI10. 1 



1 DiriPl AY AT 1 

' DISPLAY AT' 

I DISPLAY AT' 

I D1BPI ftY AI 



• .." it DISPLAY AT (24 

IF S-O OR 0013 THEN 111" 
I9PLAY AT(1.2)i"***EFFET9 DFS TDUCHE8*"' 

•»rdciixowtDEPLACEMENT CIlftSEUR" 
i"ERDCXZSWlOEF'LACEMENI CRAYON" 11 DISPLAY ATI6 



"liCHANGE LA COULEUR DE LA 
"LsLIGNG COMPLETE" 
f'KlCOLONNE COMPLETE" 
i"Hi9YMEIRIE HORIIONTALE" 
t "ViSVMETRIE VERTICALE" 
l"GiCDULEUR DE L'ECRAN" 
1-FiCOUL.DU FOND W B I '■' HI ■ 
i"2iC0ULEUR DE9 FORMES" 
1 "ZiEFFACE I. A FORME" 
I'OiEFFACE TOUT" 
1 "ENTERiENRIIil^lRrn! fiT" 



&&S& 



BASE DE L'ESPACE 



Encore des envahisseurs, decidement ces petits hom- 
mes de I'espace sont coriaces. et leurs appetits voraces. 
Vous etiez au commandes d'une base spatiale sans pro- 
blem es lorsque armees de petites creatures reussirent a 
vous encercler en installant leurs postes de combat tout 
autourdevotre base, vous bloquantainsi touteechappa- 
tolre possible, et toutes les arrivees en carburant neces- 
saire au bon fonctionnement de votre installation. 
Pris au piege, il ne vous reste plus qu'a defendre chere- 
ment votre peau. Le seul moyen de survivre un a chacun 
des attaquants qui se dirigent en direction de votre base. 
grace aux quatre canons horizontaux et verticaux que 
possede votre base. Mais ces envahisseurs sont mauvais 
joueurs et n'aiment pas se voir aneantis aussi facilement, 
ainsi apres quelques echecs {score 300 pts.) leurs postes 



de combat creeront une zone de protection qui les ren- 
dront invisibles, et invulnerables, les creatures n'apparai- 
tront done que plus tard, de plus ils se rueront sur vous 
deux fois plus vite que durant les premieres attaques. 
Mais ce n'est pas tout : vos reserves en carburant s'epui- 
sent, et pour ne pas voir votre base aneantiefautede car- 
burant vous devezdetruire a I'aide des quatre canons dia- 
gonaux les tonneaux de "OIL' qui apparaissent dans les 
angles de I'ecran. 

Attention vous nepossedez que troischances.au bout de 
la troisieme destruction de votre base, vous devrez vous 
avouer vaincu, (ou recommencer une nouvelle partie). 

Pierre-Yves CHABROL 



15 P0KES2 24 P" ■ EM 24 CUR 

20 oosuBieea 

M fcm*5144T07i2s 

t"0 FEhW IFF.— ITHENlSOO 

70 POJ Ei h HEXl 

190 DRTM .0,0, 0, 0, 0,0.0 

loi l*r» 2I9.189.2S3 255 259.255.235.90 

:■:. ,--:-i 127.25;. 12*. 255. ;'55. us. 255. i^~ 
103 IflTfi 96,255.253,255,233,233,189,219 
;...:.; data 254.191.126,253.235,126,191,234 

105 I>Im 255.51 .'.O-OO-O m 

106 DftTfl 253.233 255. 127. H . 7. 1 .0 

107 DmIh 255. .=.-55.^55. 255. 1*3.243.254.255 
;..': t'f-TH 255 255 2I>. 1?5, 1^5.129. 21?. 2J1 
:■;.- jh;m 255. 255. 255.. i55. 151 . il 127.255 

110 DflTft 255. 255-255. 254. 24i-. 224. 123.0 

111 DR-TR 233.24ft. 1*2. 0.0.0. a 

112 DATA 127,63.63 51 il . 15-15. -5 

::.■ :-:h 254.252. 252.24.5.24, ...ji^jii, .^ 

114 DATA 1. 1,1.3, J, 1.7,7 

115 DriTM 7. 15-15-31 ■ il ■<£•■ -.6?.. 127 

::-: :~r~ 21.-:-. 2 5?- 239.2 3?. 239- 2y7.207.i59 
117 I*Th 255.2C7.i47.ri .71, 147.297.233 
lit OmTh 159.207.2ti7-2-37.253- 23.--25?.255 
;:? :i." 127. *5 -53.31. 31. 15. 15.7 

120 DRTfl 7.7.3,3,3.1.1,] 

121 DflTP. 0.1, 7, 31, 12/. 255. 25-.. 127 

122 Wffl 127.293,235. 127, 3] .7,1,9 

123 DATA e,e,e,e,e. j, ji .255 

124 WTfi 6.1.7.31. 127. 255.-255. 255 

125 DtfTfi 255.254.^40. i:-5-255. 255-255. 255 
U--: LhTh 231. 219. 129. l-:.5. 195. 219. 255. 255 
127 DnTft 255.127.15.131 .255-255.255.255 
12S Df-rfl 9,1 23. 224. 24*. 254. 255. 255. 25"5 
12? :■";•• a-«.£i.0.«. l?2-24>: .£55 

130 DflTfl 6.15.15.31 .31.63-63.127 

131 DflTfl 96.240.240. 246. 24:3. 252. 2'.2. t 54 
;;2 l-mth o.-j.->. 0-0. 0.0.0 

[33 I'hTh 123. 129. 12>,. 192. 192. 192.224.224 

154 DRTfl O.g.0.0.0.0-0.0 

135 DflTfl 224-240.2J0.24i.24i.252.252.254 

136 DATA 255-247. 247. 247. 245. 245. 243, 249 

137 DATA 255.24 3.201-226.226-201 -243-255 
133 DATA 249.243.245-243,247.247-247,255 
153 LmTh 254. 2^2. 252. 246. 24:3. 240-240. 224 
140 Dnr.9 224. 224.192-192- 132. 12S. 12S. 129 
14; :,m(h 0-U6. 224. 24-5. 254. 255. 255-^54 

142 BflT* 254.255.255-254.243,224.128.0 

143 DRTfl 0.0.0.0.0,0,0.0 

144 DATA 0,0,0,0.0.0.0,0 

14^, DflTfl 0,0.0.124.124.0.0.0 

146 DATA 0,0.0.0,0.0,0.0 

147 Inlh O->V.0- O,0, 0.0.0 
143 EATft 254.194.194.194,226.226,226.254 

149 DATA 16.49.16.16-16.24.24.24 

150 DATA 126.96.2. 12c.^,.-'b, 96- 126 

151 DATA 62,44.8.12.2.2-34.28 

152 OHTA 112.96,96.96.106.126-12.12 

153 &ATA 252.192,240,12,12.12,204,243 

154 IiriTh 124,204. 192-243.204.204,204,120 

155 DATFi 252.204.12.30.12,12.12.12 

156 DflTfl 124, l?a. 190- 124. 190- 198, 198.124 

157 DATA 124.190.1.-3.126.6.6,139.124 
15.5 DATA 64. 160.30.40.21 ■ 11-5,14 

15? DATA 24,24.24.24.169.231.123.195 

160 DATA 2,5.10-20.166.205,160.112 

161 DATA 15.5.12.246.246.12,5.15 

162 DATA 102. IS?. 155.90.90.195.183.102 

163 DflTfl 240.160,48,31,31,48.160.240 

164 DflTft 14,5,11.21,40,30,160,64 

165 DAIR 135,129,231,183,24.24.24,24 

166 DflTfl 112.160,209.166.20.10.5,2 

167 DflTft 64,163.88,40.112.0,0,1 

168 DATA 2«.90.126.U.0.8.8.8 
16? DATH 10,13,10,7,0,0,64,128 
170 DATA 0,96,32,231-224,32,96.0 
I7i dafa i 57. :4 9, 192, !,-64<) 18 . 

172 DflTfl 0.6,4.. .2:1 4,6,1 

173 I'mTH 1 2,4,0,224.00. 1 ' 

174 DflTfl 16. 16. I-;. 0. 12-;. '-0.24 

175 DArA 128.64.0,14.20,26.21,2 

176 DATA 32- 56- 255. 2 1-*5, 20. 255, 255 
.' DRTfl ...7.10,20.40. 112, --... 

173 DATA 192,224.904020. 10-7. 3 

179 LATA 0.0,0.0-0.0.0.0 

180 DRTfl 36.126*219.233.102,24.36,66 

; :,i LmTh .6- 126.21 '.,.■■.'. I-1-. I'-.' ■ ] - -.-:■ 

132 DmTS 12.150.31.46.46,91 !'■- ' 

135 DftTfl 100,158. 155,46,46. 155.158.198 

184 DRTH 66, i',. c J 102 233,21 -• I, -• 36 

135 DflTfl 162, 129 153 10! -.■-■'■ 219 I • • 

186 UATfl 4ft. Ul 213.116 1 16 .-.'.\--i- 121 .43 

137 DftTfi 54, l^J, 216,116, 116,216. 121- 54 

! 38 [(HTfl 0,6 >■ ; ■■ 126,0.0 

139 DflTfl 16.56.40.40.40,40.56.16 

190 DRTB0, 0,216, 146.200.82,216.0,-1 

i-jw fi."t^.:.7...o f-fIiiT".TWfirtrt»l". ft-180 POKE 

1010 FOR01«IT03 F0RO"IT07 FQWK-1T075 NEXT 

1020 POJE646.0 

1930 PRIHT"BfiSE DE I E HmUNNHini 

:,■.!.; Fl«ft-1 -■■■ i -. 'I 

1060 HEXT ml. ;-■-.■ '5.9 



1070 F(='I(IT"MitiHli»M«Ha'-. 
1075 FCiF'I=220T0250 K-l-.ti6i:,76. I 
1030 fPiriT"PftP-Wir. 
1002 HEXT 

1035 FOPI=2--0^':Vo -Vi E : >.:-; 76. I NEXT 

1090 PPINT-'PIERRE-VVtj L-H^BPOL" P0KE36376,' 

1095 FORO-1TO509 NEXT 

1100 FPIHT'TII 1", 

1105 PRINT"! REOLES DU JEU 1 

1115 PRINT" lM V0U3 COMMflNMEZ 

1120 PRINT" UHE BflSE SPflTIflLE 

1130 PRINT-OUflND BE3 EnVflHIiSEURS" 

1148 PRINT'DE L t SPACE SEU33 IRENT" 

1150 PRIHT" fl VOUS ENCERCLER 

1160 FOP.0=1TG5000 NEXT 

1170 PRINT"-!" 

1180 PRINT" PRIS RU PIECE!* VI 

1138 PRINT" SEULE CHANCE DE fl" 

1200 PRIHT" SURVIVREW 

1300 PPINT" E3T DE DETRU1PE.I1" 

1310 PRINT" LE3 ENVMHI33EURS«" 

1320 PRINT" QUI S'flFFPOCHENTM 

1 530 F0R0= 1 T0509& ■ HEXT 

1340 PRINT-'raWWtlRIS VOi PE3EKVE3 

1350 PRINT" DlfllNUEH" 

1368 PRINT" POUR NE PAS ETPE« 

1570 PPINT-H 7003 BEVE2 TlPEP'i 

13^0 PRINT"H5ITUE5 Dftili LE3 RHOLES" 

1390 FORQ=1TO5000 NEXT 

1480 PRINT'Tia POINTi 

1405 PRINT" 

1410 PRINT"ftllJNIT. tlE FUEL.. 100" 

1420 PRINT"WEHVRHISSEURS 10" 

1430 PRIHT-JWiMMCHfiOljE « 
1440 PPINT"« FA3 SON BUT ■ -10" 
1 530 F0PO= 1 TO5O0O ■ HEXT 

1600 ppiriT"rawiwi»Mi" 

1605 PRINT" VEUILLEZ fl" 

1610 PPINT"PRTIEHTEZ otl K0HEHT..." 

1700 RETURN 

PRINT"fM!A1HTEnANT PEHTREZ W 



DE Lfl BRSE 
1 EH CflREUWHnr 



N'ATTEIGNftNT 



Lfl SECOMDE PflPTIE 



1810 PRINT"WRPPUYEZ SUR l»»»»i«WW»BBHIFT/RUNSTOP" 

co^A^AOD05 l | 20 



. D6-' I 



5G5UB1 5000 

i PRIHT*"A" P0KE36879<8 POKE36870.12 

5 F0rE52,23 P0IE5626 CLP POI- E363-,?. ,.54 
10 REM INITIALISATION 

29 F0RI-1T04 

30 ..■ i >■. 1 C< [)»0 
40 REfiBPi IJ.VO i,C2' I >.S0< I 
■15 PF< I -"PCIj 
50 NEXT 
68 FOPI=1TO0 

70 PEADL'.I/.T' 1 * . 1 • i .- ■ U 1 ■ I ■ 
75 it-' D«T< I ■ 
80 NEX1 

.'0 tr-s^i - ■•■ u-~- .. .■!.....„ ,, .. 

100 REMMTfl 1 - 4 

102 [iArfl7734..52.774":.2..5 :-i.i '■■ 

104 DMTri7340.-l ..jli>.2i,'. :.. ■ : 

106 DflTfl8138, -22,8121 .241 84.65 
108 DAVA7-24- 1 , 7725,243,86.61 

110 PEN I *- 8 
112 CATA7, 7633,-2^.5? 
114 DA1A6. ",'3^4. 1,88 
116 DftTR7.7976. 22,89 
118 DflTB6. 7930,-] .08 

122 DATA'3.7369. -.1 .:. 

124 DAI.!., , . 

126 DflTftS,7?95,+2l.77 

123 DmTH?. .■o6 3.-2;;.,-i-- 
200 REM HFFICH. PLAN 
. m PRIM! '34MPMMEFGH1 ■ -111111 




C'est un programme 6cn! enliefement en Oas« m*s qui emplo«e 
quand rn&me bon nombre des adresses slrat&giajiies du '/C -2'. 
done un peu compiexe de ('adapter a d'autres systemes) 

Autre pariiculante ; ce programme doit Stre tape en de... 

- la premjerecomportant la presentation et une tongue liste de'DATA' 
necessaires a la formation du grapheme Hte- resolution utrtise d»rwc« 
ieu 

Une fois celte partie tapee (rentree dans la machine) ft vous est possi- 
ble de verifier si la liste de "DATA" que vous aver tape necomporte pas 
d'erreur en tapant ces 4 lignes 
50000 FOR D~0TO 200x 8 ; READ G 
50j05IFG ■: 'HEN 5: M5 
5001 0B=B+G NEXT 
50015 ?B 

puis en laisani "RUN 50000". vous devez voir apparallre sur I'ecran le 
nombre 82 118. smon il y a une erreurdansvos "DATA', it faudra done les 
venTier. puis corriger la ou les fautes. puis recommencerroperation;us- 
qu'a trouver ie ban resultat. Une fois le resultat juste, supprimer les li- 
gnes 50000 a 50015. puis sauver le programme. 
Une fois toutes ces operations effectuees. fatre le SYSteme RESET : 
(SYS 64802), et taper la seconde partie. Une fois celle-ci sauvee. rem- 
bobiner : LOADER, il ne vous reste plus qua battre des records 
PART1CULARITES : 

- CE PROGRAMME NECESSITE UNE EXTENSION DE MEMOIRE VIVE 
DE + 3Ko. 

- ^UTILISATION DU JOYSTICK EST NECESSAIRE POUR FAIRE FONC- 
TIONNERLEJEU, 

360 IF8ND<0)OC(DTHEHC<I>>] X<I>*8 

370 IFC(I)THEH500 
380 01=01-18 

385 ifoi;othen:-ooo 

390 IFPHti'O' :.2THEHA=IHT.pnii.0,*4.9' FC» EC2- C ■ ■ 76 

40v IPPHD.iJ' :.15THtrJH=INT. ;-MLi.0'»4. 3 ■ 

410 HEXT 

420 GQTO380 

500 F'.I >"P(1>+V<I) 

510 1FPEE» - P- 1 > ■■;:-32THEN5.000 

520 PQK£P<I) - IHUDt I >*PND"S >.«.'. . 

525 PNKE16376-50.I.' 

530 P0KEP<I>-V<I>.32 

535 POKE 36876.0 

540 C-OTQ3S0 

10O0 IFA<23STHENK=6 C-OTO1050 

1005 IFfK242THENK.=5 COTO1050 

1018 IFfK246THEfi'k = 2 GGTU1050 

1015 IFA-.35tilHEN> =7 OOT01050 

1020 IFA3354ThENi.=;5 G0T0185^ 

1025 IFfl^356TH£NK=4 OOTO1050 

1050 I F A-; 366 THENK =3 OOTO105O 

1035 [FFK370THEHK-1 00101058 

1050 IFPEEk'.T.>..?-;>52THENE>=t P0KE3667;. .- ■ .:..-■• 

1O60 31-250 POKETvK J.DKK) 

1070 T<K)»T<K)+1(K) 

1880 IFPEEKaa..v'-.532THEHP0(.E36S75.'"- GOTO 1 200 

1062 P0KE36375.S1 Sl«Sl-2 

1055 POKETo:i.DKK? F0KET(K )-I(K) , 32 

1090 GOTO 1070 

1260 IFPEEK<T(K>)<1ORPEEKO'<K>»5THEH1300 

1210 SC=SC-10 01=01-20 

1220 X(((> = .2*AESCSC/100) 

1225 P0KET<KJ-KK),32 

1230 T<K)-TF(K> 

1240 eOTO360 

1300 IFPEEKlT'.K)K>76THEN1400 

1310 01=01*100 

1315 POKET'.K;. 102 FORO=tTO20iHEXTiPOKET<K>,32 

1320 P0KET(K)-I(K>,32 

1330 r<K)*TF(KJ 

1340 G0T0360 

1408 IFPEEI ■.' 1(1 ■.' .-C300FPEEf ■.' T-l. > •V87THEH1500 

1410 SC=iC10 X<K)-0.2*RB8<SC/100>:C<KJ-0 

1412 rFES=1THEND6=D6U..'fc3=0 00101415 

[413 D6-32 

,.,,-. pa et<| t-KK>,D6 

1428 P0KET<K>.0CK5+l:FORO-lT02e HEXT P0KET(K>.32 

1425 IFSC:'300ANIiHCK)-0THENV',K)=va,^2 HtK>"l 1FABS 

(V<l >)»44THEHPF<K>-PF<KJ*<v'<l ',;.> 

1430 r<K>«TF(K) PiK)ePF(K) 

1450 GCir0360 

1500 P0KET<K>-ICK),32:P0KET?K>,32 

1528 1<X> = 1F<.K> GOT0360 

•WV PEN PLUS HE FUEL 

.."in ( 0! !■..■■; :.,'.■•. My 

3020 F0RZ=200T01S03TEP-1 

3038 P0KE36874.Z 

3040 F0R0=1T040 HEXTO.Z 

3050 NV=NV-1 

50c0 IPHV-lfHEHlOCiCiO 

3072 P<n=7734 P(2J=7940:p(3>="8138 P(4>»7924 

3074 IFVV 1 ,=44TNENP'l - = 7756 

3076 [FV<3>»-44THEHPO)"8108 

50::U P'jP2 -I/.-'ImK ;.■■■. il I- [ i-nl ■ -..-.I..' Fnf-i.' II11.IC1 lltl'ln./ 

3035 01=2000 

3100 FOFO=1TO2O0O NEXT 

3105 P0KE36879,8 P0XE36874.8 

-il 10 i.-'Jli..... , '.iO 

' M..-0 I nr-,; ...'...'In, I'-iH ■] h.ii I: .,:,.•■...■ Ill ; I I ul I- - ;.', f. 

5005 FPinr-»i.»i.i»w.ii»»»«n»c-a-3 'iiih. ;:i ;, >llic ' S v 

! ; " L .- ,-.-■'■' 1 i.i.-.'.o ii.i i.:-y ■■■■.:..,■ nt;:i 

5O10 NV=NV-1 IHJV;iTHElU000B 

5W25 FUK2 = 25OTCI250 P0KE36876-Z NF::i 

5055 F0F2 = .5OTij250 F OLE 36376 . 2 NEXT POP E36S76 . 0- FO 

RZ-1TO1000:NEXT 

5048 P(I>=7734 Pt2>-7940 P<3>"8130:P<4>«7924 

5050 [FV( 1 ,=44THENP. 1 j-7756 

5060 (FV<3)"-44THEHP<3>-8108 

5100 ooro2on 

10800 REM FIN T>E L.i PflRI it- 

1U015 pPiNi"rji»r : HP i:t 11 -nn« i- ■ 
3 PRINT"«W»MfWTW I W .1 



;*i':*:»;':w:nniiinu>iiiji ntn 


."Hr.'i-'iii'Jn" 


. ■• • -(■■f.\ , ;-iK\-^ir:'i'-.-:K'^\nr.'; f -.-\>, ■,. 


.'■ t. HIIIIWKY2 


. .:•■ i .- in 1 ^l »»,->»!«l 1 -il" -in . >nr.I'i>ll 


'•rill 'II' ' 


f- :h; ■s!f 1 M,'inM:».v»pp»»»»t«: a:: 


nnwoi ., 'mi: :<■ 


.-I'.. POI E> .■!■.;- 1 F"l| ■■ 


■ ' PI . E8142, 1 


243 P0KE7765 l-POKI 4, POKE 7 7, 


1 POKE38442,0 


_. : ..j i-,.*r-.. v .tr.j. .-.1- ..rtP,-, un 1 




260 1 - i K54TO38660 POI E 1 •'■ HI ■ 1 




270 FORI" 3656T0 8830STEP22 P0KE1 2 


EXT 


230 F0RU38644TO3S651;P0KEI.3 HEXT 




J00 PEM EUUCLE PRINC. 




10 FORI ll'J-l 




J20 PRIHT "*t» pTSC" ir;TRB< 16)"L 




330 P0KE37154, 127 




,4m Fl-PEEI ■ 171 :.\.'lflii ■ ■', ■,'.,■ 




*50 IFh J73THEH1008 





. |4 F.il (-. .. ,- ■ . in 



OU.'. 



'.■LFl 



Ht . 






15 



"0"TNKNPf-_MOPE 
B33 END 
100 END 

OV'0 fC'FE36379.C FRIIir"D" 
901 F0RQ2-IT0J FORO '1 f07 
J05 FRinr "nn«H'»»po-A:-E i 



LP 1 



FHllll.ll'. '. 

IT01 



1 0RO1 <| rO100 HEX! 



!,RHDC( 



.«■. I UNI 'I "■ 1 



15012 r-ki>iT' >»kpMi»»ar 

15015 FOR02-1 lUJO P0KE64I 

■ ■;■ -.i'.. ■ ■•■■ PRIHI ■■., ■ 

1 5.-1 J 1 t. POI tr.46.FNLi'0-*7 PPINT-FIMI". 

13026 NEX1 PRIH1 iPilii "W|>li" 

15030 PRI1li"»»WIEPRE-VVF:3 1 HAIRui ■■ 

15040 I QRO 1 rO50C HI 1 

15050 PRIHT"»BDO(«(aWIPPUVEZ iff miF tOUCHET 

I'-"- 8 "I h'i II.. 1 :■ fHEN 15066 



150; 



RETUI 



Suite de la page 1 



plusieurs OL ou ZX SPECTRUM 
(100K bauds). 

Une entree permet de gerer un moni- 
teur haute resolution, comportant 
deux modes : 512 x 256 points en 4 
couleurs (ou 4 teintes de gris} et 256 
x 256 points en 8 couleurs avec une 
page de tente de 85 colonnes sur 25 
lignes. 

Une entree assure I'interlace TV (de 
10 a 60 colonnes en fonction du logi- 
ciel) Deux interfaces animenl les 
liaisons serie aux normes RS232C 
(75 bauds a 19.200 bauds). 
Deux entrees enfm, pour connecter 
dea Joysticks pour les jeux et le con- 
tr6le du curseur 



LOG I CI ELS 

Le QL est vendu avec un ensemble 
de quatre logiciels professionnels. 
On y Irouve un traitement de texte, 
OL QUILL, une feuille de calcul de ty- 
pe visicalc. unplanning analyse bud- 
getaire, portant le nom de QLABA- 
CUS, QL ARCHIVE, une puissante 
gestion de fichier utilisant un langa- 
ge simple et un editeur de texte, et 
entinOL EASEL permellant do Iracer 
en haute resolution el en couleurs 
des histogrammes, courbes. etc . 
Le QL sera commercialise avant le 
debut de I'ete (on parle du mois de 
MAI 1984) a un prix de I'ordre de 
5.000 F. incluant le materiel, les logi- 
ciels et un boitier d'extension. Enco- 
re une affaire a suivre !. . 

Pierric GLAJEAN 



RADIO-ANGORA 100,7 Mhz 

78.0UAI DES CHARTRONS 33000 BORDEAUX 



44 68 66. LOndede Choc!!! 



LE LOGICIEL 
DE LA SEMAINE 



Asteroides ... sur SPECTRUM b • 



Le but du jeu est simple : faire tra- 
verser I'ecran a votre vaisseau un 
maximum tie fois au milieu d'une 
nuee grandissante d'asteroides 
Le graphisme est rudimentaire 
mais ceci ne diminue en rien le 
realisme de I'animation qui est 
excellent grace a une program- 
mation entierement en langage 
machine. Les asteroides sont de 
petites boules qu'il n'est pas 
question de detruire mais seu- 
lement d'eviter. lis rebondissent 
sur le bord de I'ecran, ce qui est 
mortel pour votre vaisseau. sauf 
au niveau de i'ouverture qui se 
presente a votre droite et qu'il 
s'agit d'atteindre. J'ai en fait re- 
trouve avec ce jeu des sensations 
que je n'avais plus connus depuis 
que j'ai abandonne les jeux d'ar- 
cades. probablement a cause du 
grand nombre d'objets pouvant 
etre en mouvement a un meme 
instant. Certain regretteront lab- 
sence de laser et autres engins 
destructeurs. mais cela confere a 
ce jeu epure, non depourvu d'in- 
teret. 



A cbaque traversee. la Vitesse et 
le nombre d'asteroides augmen- 
te. cependant la petitesse des 
objets (asteroides et vaisseauxl 
ne rend pas la catastrophe ine- 
vitable meme avec un grand 
nombre d'asteroides tl reste pos- 
sible de naviguer parmi eux et de 
guetter I'ouverture ... 
Un jeu oil I'habilete du joueur 
s'exprime vraiment. 



Sachez qu'il existe 5 variables de 
ce jeu. La porte de sortie se met a 
bouger, des plaques apparaissent 
et se deplacent, compliquant vos 
deplacements. La valeur d'une 
traversee est egale au numero de 
la variante choisie (1 a 5) dont 
la difficutte augmente avec son 
numero. Le tableau final des 
10 meilieures scores n'a guere de , 
signification si Ton melange les ^* 
variantes. Quant a moi c'est la 
premiere que je prefere : la plus 
pure. 

BABALOUK 




)f 
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Hi 



999 

59: 



;-:=-?£3 BUI REPSES" 

:jS _ ft "E^ T £'.~ _£S 3 0: 

h'S MRDINflux : i=na 
.- : ;=235 ! 6-dro:t 

£ : «=MUCs£ . ' 

OATH • • 

: ;£t 
afliT :ii: '-?-■■■- ltd 
>: l-.l* 2: »A:t :i: 

=;= :=: to 64: =?>- 
•■-./.' :■■ =£-.=■■ 

■■-'.' 99: CS_. 37386: 

' j ' j :~ 'C_:-.'3 ■: 
:-_. :-.-855: --".:■- ■; 
-flriG ': Cfiu. tT879: 

'-:■•- -i.e-.G •: 
:-__ 57871! 3 E'.?-. 
>£* 

■■:- yc:)=Y<2) y ■:<:> 
=V<5) M v< :;="!i. 
)s .-. :)»v<5) :p •■:■ :> 

= v, 6 , -.;,. 286 

::- »<2>»Y<3) OR Y'.2> 

= "-. :■■ ":/=v5; 

OS Y<2)=VC6> "-£■• 26 

8 
:;-- «(3).y<«) OR \f<5) 

-Y<5) 1 ; 7 £j=y<6) 

--£• 209 
: .-" YC4)«YC5) OR Y(4) 

=Y<6) --£'• 288 
: : : I 5>"Yt6) "-£■• 28 

8 

: ;crc 292 

:*-:- :: i =:--- " 3E 

:--.".--. 2£ -J"-: 
>.. £85: RETURN 



>R0GRft**£ s'J*«£R0 £ 
-i D0>J0h • 



5: :.£~ : : ::• 3i< :wa 

: j:- I): 
: ;:• 2C9)!Z<9)-99 
:8l*A] 99:«»6:V"£!*<=9: 

:5:>='.- -3:s£cr:oN ■> • 



26.^=V:l=as Of A G0SU3 

3:. 32, 33. 3*, 35. 36. 37 
,38.39 

25:90-0 58 



-:<<: 



32:.-=-*::0 = 3:==3: 



££:- = ». ;:-. = s-;:o=-:3:==- 

-:: RETURN 
3d: n=n-: : 0=3: s =3: 

£;:;=-j:= = 3:--=--:: G0SU3 

988 
£6:-— ••-.: :=8: 3 =G: 

?"L 3.1 
£":■=•.- ::*="-::C = i: 3 =:3 

: =£-.<•• 
38! l»r-l!0»9! i= 3: 

-£.- 
I',:--' -;:N = ^t;:e = ;8:=— 

". : '£-. ; 
381-»(i <»;B)«): :? L>7 

;070 78 
63:j=3 
78!R*. ';0! '£!'£.._*:. 

:> 
£3::- ">;3 : s "3 : J ■■■ 

3 ]R ->9 3R ;*=■•;' 

----- '.86 

93:g:"0 .;; 

:89!»R>" 'VOi/8 '/:.; ;:o 
££ "JANS'! ":■' • .-. 
8 -, : 9 Du :o■-:0'. , ■: 
Geo ::o 

28::- £'3 -£' 0=3: £=£*7 
: SOTO . - 8 

-3 
•8:E=E-::G!= '.2! (3*C 

»:< r 8 .£" :=■:■■==■-- 
■;■■;,- 

£3:. ; ; '79 .£" C = ::£=£- 
78 

-8: ; = ; -::-s= -.05 C3IC 

.--,:■ 
83::= i»: OS *-l OR s=7 

o= -=o n»J ■»■*:• 

^j -J = ": ,: GO'O 333 
:98::- («»••:• h-.O -J = -3 



359 

363 
378 



333 
398 



j:5 

'29 



528 
533 
3«B! 
550: 
569: 

565: 

5-8 



*> OR (GS="9* a^2 .-s 

=": v > ^-ause v =a:-£ _ 

£ TOUR ": GO'O :5 
^A:3£ "OE^.ACErE.ST £ 

": 60*0 2^3 

JS=- nORIi • 

wfl: - : PRINT RIGA'S 

(3S(3),2)i" 3 AR t :E'! 

;j:"0u BONJON'i Mil 

99 

;= RS=-3' G0SU3 599 

:- (<L=64 OR ^=65) 

0N3 3=9) OR (<L=4 OR 

_=5) AND D=l) G0SUB 

£39 

G0"0 :5 

SE.1 T10N7SE D ETAGE - 

INRUT 'CHANGEZ-VOUS 

ETASE 7',q 3 :oj= 

_£="! (0*.l) 

IF US= V S' ^E T UR1 

isPUT "«0«TER<flJiJES 

CE«3RE(I» ?-.aj:05= 

_£"s (Qs.n 

0£ 0I="" GOTO 379 

•= US="D" GOTO 398 

GO'O 399 

if <=5 D R> T -:t:poss 

:3_E V0U3 £"ES-: 
PRInT 'AU DERSIER E T 

AGE - : GO'O 399 

<=<♦:: G0S.J3 458: 

RETURN 

IF <=8 PRIM "V0US £ 

-££': -R:m- -au =EZ- 

3£-CfMS3E' 

:- <=8 .£- Q*»"*l 

INPUT -VOU.EZ-VOIJS ? 

ARTIR ? "!8»lM" 

-£"s (Qfil) 

IF QS=*0' G0SU3 998 

GOTO 388 

<=<»:: G0SUB 459: 

RETURN 

-I- 'DATA" 

?ES'0RS 

; S :=3 TO ': =£AD 3 

I(9>)SS(1>! vEX" :: 

"-£-- : '. 

-'I- 'C0B3AT' 

3= =-.j 7: 3p;,s7 "OAn 

9 :£-£ 3A..E-: 

»RI.»T ":. Y A j- GA = 

OE": PRIST •:. V0US 

- VU ' 

■-y.-- •_£ Gmpoe vous 

.-- '■•■; 2=: 003.3 383 
: GOTO 558 

si .-' 'Ouf :. vous 

A »-£' 

»«:>■ "vous a--^:.£2 



:- 1 »^3 2) = : GO-0 6 

59 

: ; 3<»8 RETURN 

PRINT "KfluxEUR 1 -A% 

-J.I" 

iGOTO 528 

:=»>" •:_ VOUS A 3lE 
JSE'lS" JN3 5:Z(3>=Z 
<9)-5: ":-.- -VOTRE 



PETITES ANNONCES 
GRATUITES 



Tl 99/4A CHERCHE correspon- 
dant pour echange programmes. 
Modules (PASSEC-ATTACKj ma- 
nuel pratique du Tl niveau t Eric 
DAURIS 13. rue Helene Boucher 
17300 ROCHEFORT Tel. (46) 
99.87.46. 

CHERCHE interlace RS 232 pour 
Tl 99MA et VENDS ou ECHANGE 
cassettes programmes Lionel 
PROVOST Tel. (6) 060.82.01, 




VENDS Tl 99/4A + Basic etendu + 
synthetiseur de parole + paire de 
poigneesdejeu + magnetoTI + li- 
vres "LA PRATIQUE DU TI/994A + 
cable cassette + manuels + cas- 
sette "APPRENDRE LE BASIC 
ETENDU" Valeur 3.290 Vendu 
2.650 F Monsieur SILVE 15. rue 
Jules Romain 75019 PARIS 
tel. 209.54.25 (entre 18 H 30 et 
20H15). 

VENDS PC 1251 et CE 125achete 
en Janvier et Octobre 1983. non 
garantie, avec nombreux pro- 
grammes et cassettes + manuel 
d'utilisation et de programma- 
tion, Vendu 2.900 E a debattre 
Eric SANCHEZ 13. impasse des 
Coudrays 73310 ELANCOURT 
MAUREPAS Tel. 062.03.65. 

ACHETE pour Tl 99 4A extension 
MEV (RAM) 32 K + controleur de 
disquettes + unite integree de 
disquettes ecrire a M. R1STORI 
3. rue Oncheres 69120 VAULX EN 
VELIN Tel. (7) 880.29.03. (apres 
20 H). 

VENDS Tl 99/4A + Module Basic 
etendu + module CAR WARS + 
manettes de jeu + adaptateur 
pour TV noir et blanc et couleur-r- 
manuel de 40 programmes + Di- 
vers jeux sur cassette + prise ma- 
gneto. Le tout a un prix sacrifie. 
Tel. (48) 30.67.10 Jean Marc THI- 
BIER. 

VENDS VIC 20 PAL + Modulateur 
UHF, magneto, extension 8 Ko. 
PROGRAMMER'S AID jeux sous 
garantie 2.600 Ele tout. Stephane 
CALLIES SAINT BROING 70100 
GRAY Tel, (84) 65.25,39. 



POUR ZX81 VENDS assembler 
ZA MEMOTECH (9/83) + disas- 
sembler ZXDB prix 400 F Alban 
BIAIS 27, avenue de la Senatore- 
rie 23000 GUERET Tel. (55) 
52.57.57. 

VENDS APPLE HE 11/83 + Drive + 
moniteur + joystick + nombreux 
programmes (jeux. utilitaire ges- 
tion) + Docs. Prix 16.500 F Marc 
AGULLO 2 Maradas Vert 95000 
CERGY Tel. 038.65.54 (Dom.) 
637.51.70 (Bur.). 

VENDS SANYO PHC 25 + Casset- 
te de demonstration + cordons + 
livrets d'apprentissage du Basic 
SANYO : 2000 E etat neuf. Ste- 
phane PARDO 4 Bis. chemin 
du bois de I'aumone 13011 MAR- 
SEILLE. 

PHC 25 cherche compagnon en 
vue d'echange de programmes. 
Repondre vite. Ecrire a Francis 
PICARD 16. rue Traverse 29200 
BREST 

ACHETE pour Tl 99/4A module 
Basic etendu et module mini 
memoire. Ecrire ou tel. a DAVID 
ROGER les Auches Avenue de la 
Gare 04240 ANNOT Tel. (92) 
83.27.81. 

Cause SPECTRUM : VENDS livres 
CBM. APPLE II. Collection de re- 
vues informatiques et electro. PB 
100 + 502 P 4- Tl 57 + calculatri- 
ces. Recepteur FM + materiel 
electronique. Liste complete 
contre enveloppe timbree a 
Monsieur GROBELNY 69. route 
nationale 62740 FOUQUIERES 
LES LENS. 

CREATION D'UNE ASSOCIATION 

A RODEZ : 

AGRIPA - Association des Grou- 



pes de Recherche en informatl- 
que et Pedagogia AppMquees - 
Creation & Diffusion de program- 
mes pedagogiques - J.P CRONI- 
MUS. BP 318. 1Z003 RODEZ 
CEDEX. 

RECHERCHE Programmes sur 
T07paruSdansHEBDOGICIELn° 
1.2-6et7. N'ayantpu me procurer 
ces numeros. Meme photoco- 
pies. Jean Claude BEN01ST 12. 
Boulevard de la Chapelle 75018 
PARIS. Tel. : 245.06.69. 

VENDS interface SECAM PR Tl 99 

-f RAD TVC K7 220v/12v (JVC) : 
2.300 F pratique du Tl 99 niveau 1 
et 2 :125E 50 programmes pour Tl 
99 : 50 E. le Tt 99 a Taffiche : 50F. 
99 Magazines 3 numeros : 60 F. 
camera SONY HVC 3000 S : 
4.500 F, Tner video CONTINEN- 
TAL EDISON DP 2111 : 1.300 F 
Robert VIGEAN Robert RIOLS 
34220 SAINT PONS Tel. (67) 
97.11.80. 

ECHANGE Programmes, liste sur 
demande par courrier Serge PI- 
QUET 82. rue du Bois Hardy 44100 
NANTES. 

VENDS LYNX 48 K + K7 election 

Analyst, the worm. Moonfall, trea- 
sure Island. Valeur le tout neuf ; 
3.370 F. vendu 2.800 F garanti 
jusqu'a decembre 1984. Cedric 
BURDET 763.35.07 (PARIS). 

A VENDRE VEGAS 6809 2 Drives 

interface serie, parallele, horloge 
temps reel, Moniteur noir et 
blanc. Nombreux accessoires : 
POMS, livres, disquettes, compa- 
tible GOUPIL 3. Faire offre Mon- 
sieur LAURENT J, Paul LA FAUVIE- 
RE Bat Al. Chemin de Saint Loup 
13010 SAINT TRONC (Marseille). 



v: t al:te : *,Z<9) 

IF :<SK=9 PRINT *VQ 
JS ETES .lORT": prist 
"AVEC UM t«ES0R 3 US 
": 3R:>" , '!"lON T flNT DE 
*:z<7>;" $*: EUD 
RETURN 

PRINT *V0US L AVEZ B 
LESSE*:S»S- RMD 7: 
IF 5<=8 ?RI>T "LE Gfl 
<DE £S* 710R" 
::- 5<=y 3 R:sT 'IL Y 
A UN -<=SQf:-= ?.l>2 
299: =r:^7 >:_ y EN 
A =0dR MTI' J*:Z<7) 
=Z<7)* - : RETURN 
iGOTO 528 

DA-a ■13131113013808 
2:::9:::3;iiye;;;::i 
;3i;i30ii0i00000iui 
:;;'.s::3::s::9:::e<63H) 
3ftTfl *:9:i99S9:33:89 

11110:00000000831131 

9:3:a:;3iiy3:::3::3: 

<6i"t3> " 

3A~A '3001081:311118 
1031013100011:011088 

:5:99:3:::3:i9::i03: 
:3ii0im:uii0i 

DflTfl '1UU3101I3100 

9:9S-.98:009L3::0L131 

0i::::u0i0iii0ni3i 
83i80;im:in:i:^a^ 
DATA "5::3:::33:?i90: 
80111001008880011010 
010i8l3ll3l8ll011111 

i3Lfl8eieinuiee*a(fi4^ 

JATfl "111 10899991311 

3:110999111519010183 

1100:100010310090101 

:10011I300311831CI^75 

3A r A "886111111133:3 

8088131118:880101013 

Ii::0iu:;;:i38il3l3 
iui3:0:i08ii:iiE!CW2> 

DATA ".'.100031131300 
8li::0011008311081l3 
13180008811118088880 

i:i0i33i:3i300iiP*^J5) 

JA'A "11301009133111 
01000100001100111018 

1381000110110:913130 
<?, 10) . 



:DATA •'13110960139100 
11110160090900081181 
0101011811661113113: 

11031:11111:1111'' 
<61, 13> 

S3ATA "381000008H813 
95100000010100109809 
90608061061:08110809 
I:00:i3l0880083l*<1.8> 

:DATA '13080990001818 
011:0013108510015180 
81091100981518885188 
010811130U11031IZ<tf> 

:BEEP 11 PRINT 'UNE P 
ORTE* 

: INPUT 'VOULEZ VOUS L 

OUVRIR ?*;QJ:Q*= 
^.EF T $ COJflJ 

:l= Q»=*0" AND RND 2= 
: 3[ *:N" "EL1.E" EST OU 
VERTE": GOTO :?6 

I IF Q**'N' GOTO 13 

:PRInT 'ELLE s£ S OUV 
9.1 PflS": GO^O 395 

:uAl" 159: 3RIr4"r "VOU 
8 80RTE2 DU DONJON*: 
PRINT »IL FAUT RETOU 
P^ES": °RInT *AU VIL 
_AGE* 



** EXPLORATION *-* 

fC'-EAR : D.* B*<:)*75 
: j:' Z<9)>Z<8)"88+ 

-■•J 28! ?A^D0r 

:c=:i*-Z(e)iH-z(9) 

:C08u3 569: »h: - 208 

:fi= vA_ ( -IDS C3KC) 
-_*■..-.)): js A GOSUB 
51.32.33. 34.35. 36-37 
. 38 • 11 

iGDTO 100 

[•<>T "VOUS ETE8 AU 
, ;, ■: 5QT() gee 

i?R>t «3JS_ 3?q;ji__a 

'j ■ *i ' j '<:^~ *0n ■• 

-. V0I8 RIfc**i SET'JRN 

Is^RInT »V0U8 E'ES SUR 

:•■ i.-tZ-Is": RETURN 

•.■■>■>;•■■ ":. y a u« -AC 

VOUS -£": '?>" ,;> 2 
<\M% BVANCER*!* 
RETURN 



3SIPRINT ■. En'RSE DU C 

-ateau*: return 
36:pri"t 'vous vous cog 
ne da^s .es": ?r:s- 

•i'URS DU C^A"E0U': 

RETiiRh 
37s PR Ii»* "VOUS E'ES ftU 

CrtA"AU*s ?E7;jRr; 
38IBEEP 3: ^Rls" "VOICI 
. £v T REE OU DONJOH' 
40:RETuRv 
00:1? A=4 OR A=6 PRINT 

"VOUS n£ POUVSZ PAS* 

: ^ifcT 'AllER PAR L 

A*: GOTO 120 
.10:3E£P : 




SCHTROUMPF 



Vous devez atteindre la schtroumpfette le plus rapide- 
menl possible (bonus oblige), cela en evitant les colis dis- 
poses sur votre chemin, Lorsque vous touchez des 
cceurs, arret ez vous, vous deviendrez rouge (!!!) et irez 
deux fois plus vite. 

Avecun peud'habitude.i! voussera possible de vous coin- 
cer entre les colis (tres utile). 

Jean-Louis WANSART 

Mode d'emploi 

uliiisez dans le port i : les manoeuvres possibles sont : 
- vers la droite - vers la gauche - vers le haul 
Nombrede vie : 5 

Ce programme ne peut s'adapter sur d'aulres ordinateurs sans modifi- 
cations profondes puisque le COMMODORE 64 est le seul possedant 
des spntes (objets programmabtes de haute resolution) et le TEXAS ! 




TL-SI+2;TB»SI+3 



1-.. "U-: ,T RB=5S243 ..0 = 55^36 51=54272 FL=5I FH 

[5 M*>S1*4 RR^I*5-HH-SI+€:UL»9I*24 BIMfK4>,BC4 

ia FOi EflB+32.3 POttflB+33,3 

...-■ F.;iP..MTO205-REftW( HEXTX 

49 rem 

4i REM ♦• DEFINITION liLi SPRITES »• 
« REM 

50 F0RX*8T04 POKE2640+X, 193 HEXTX 

60 F0R.-,=5T0; F.j-.L^vJ^i-... li-itX KEXTX 

.0 F0RN=l3J-T0iiJO F0R'J = OIO62 rEflLfl P0KEN«64»0.R HEXT6.N 

50 PCrERB'23-31 POKtHB+26. 191 FOI £mB*23. 31 

50 FIXERS *• 39, j F0*EftB*48.7 pf>Efl6*41 . 8 FOI ERB*42.3 ■ P'>..EftB+43. 1 . 

IW P0>.£flE-3. 1 POKEflt+itf.o F0|-.£h£ + 44.6 r ui.EnbT^-;,. 7 FmEhB+46.6 

lid REM 

129 F0RX-1T03I REflM-StXi-R; HEXTX 

130 REM 

131 REM *» OENERIQUE ** 




i.PRIWTJ' 



3 IT-TI 

3 RESTORE B-255 f>.a 6u=19w 

j FOtEflB- 32,-3 FOKEflB-»33.5 POKERB+16. 

3- P0KERB*18,6 P0K£Ft£*il.lI3 POKERB+21,32 

, F0R1MTO3 REflDfl NEXTB 

. - .- . ST0BSTEP3 C--C 

1 POKE2B45«t94.3*C:POKEflB*10,X:P«4 > EEK<flB*lS> 

S OOS0&I25O FuP,rtti=lTO50 NEXTNH 

j ir ..= ii40F;;>i;*50P;->i55' J F>:=ioT>.jp.--.=iieof,x=i'.S4jOOT024e 
.-■:- -.■--■j-HrCP^.:.' -F- ..x.r^ J i-::= i 4,M:(iP-:- !t :iiiriT0 r :4y 
j PO*XMU,0:GOTO26e 
J GGSUB1290 

3 Fij=;ii=lT0!« FERDE RERDE POkEC0+£,3 FuKEl024*E,B;H£xrn 
3 F'>.EWW*7.9 PuH£Rfi+7,0 if-FEEf- j-^2 l ,H:lDL'i,- =OHMDUEO0OOrO330 
I HEXTX 
) IFPEEK<.AB+16.,OJ2THENfc=5l POt ERE* 16. 32 GUT0198 

; PRINT-lMMmMMM>RESSE2 LE BOtfTOH DE TIR" 

j IFWB09THE>*RIlJT"»W»f/CiTRE SCORE : 3"VV9 HElLLEOP SCOPE a" Mi 

i REM 



J IF (.reEJt.'.SeStlJHNDl^sIiCO I >iisi:<3 
) HB»] POKEflB+21,0:RE3TQRE 
» PRINT": — 

I fi=e b=37 ve=i vs=e 

! REM 



.■213TEP4 

} FrjF'/B=flTOE Fi>.Ei:o+VE+4ytri. t. POKE 1924V/B+49*H, 160 NEXTVB 

J IFR=9TH£lift=2 B-39 GOTO4I0 

j R=a &=;r 

3 F0RZB6T034STEP7 P0KE1824+Z+4e*H,32:NEXT2 

i HEXTH 

J F0RE»ITOS REftifi 

- ..■rEH.r-. PurEA-M-122 P0IER*40,76 FOIER-41, 122 POKEfi+80 , 76 
v FOiEh + 31, 122 POKER* UO. 191 F'JKER+121,193 
J HEXTE 

; :-i,.i -iiaj- PPIMTTmE'4^'SC0PE ;1 r 
jj PRIHT'a* FFINTTRBU7,"£0liiJi 31909" 
; PRINT-IT PRIMTTflB<32>"VIE a i" 
1 PEP1 



r-0lfE2045.135 
) POKEftB+i-66 H.., ERB*.3.6eF!JI:EAfc+5.66 POXtflE*, -66 P0IERB-t5.ee F0XERB+I9.24 
i P.:<ERE-55 PGKEfiB*2.1U POKERBM, 163 F0KERB*6,223 P0ICERB+8.24 P0KER2' 16, 16 
■ ■'■-■rfEni,* 12,24 FijiERfc+14-24 P0KERB*13,69 POKEHB+13,69 FuKERB-ll ?30 
I CKERB-H7,P£E» £fiS+17>flND239 
; FPu,r-aiyisi';i;pi' 1 r,-i^..»M»»Mi 

5 PEM 

i F0RHL*7T019STEP4:fll.-IMT<RND<W*i6>+12 

I F0'E1^4*m.»4«*HL.ii P0h-E' J '^.-i.-P.Lt4a*HL,2 

i POtEi^-s+fiL^u^HL -«■:-• WE.'?>kiv*in.+<w*nL,2 

i HEXTHL 

; PK=PEB -;flB*3e) 

1 1*6 XS«24 r«*23e FORl^«T04 B-Lj=rf HEXTL 

i F0Rn*OT04 

i RCM>-IHT<RHIJ<e>*a>+3 

i MEXTM 

I rCTI-IM PWEflB+ir,FEEK'.HB*!r'j'JFJ-5 PuiEhB'v^ - <i F-AEMfct j ; ■ y POKEMB+21-2S5 

, REM 

. FEN M H0UVEMEHT9 DES SPRITES ** 

" REM - 



, FORR»0TO4 B<R)-B<RJ*«<RJ 

i IF£'R/^14iOPE'.p,-:ijrHEIlfl'F> = 
) P0KEfiB*l+2«.66+8<RJ 

; HEXTF 

i ifw -iit)Dw.4i J .jro87e 

: iF,:i::-.JG0ICir4y 
- PX=-PEEK{flB*3IJ 




KR3 B'Pj: 



■■. . ■ ■ ■ ■ . 

■ . .; ■ = ;■■■-■: : 
■.-..' 

■ ■: I- <■ =1 ■ 

-■-:•■ 
■ ■ II ■■ ■■ ■ ■ i ■■: . ■■■ . 

■ ■ ■ ;-;.- 

: - : : ■.■- ..;■:. 

.. .. . eei .-;-,- pnB3i -.■■.-.;.■■.:. 

■ ■■ ■ .■:.,-...-■.: B+U 

10 ■ »J ■ .=:-,,;> -.^■.-. RYS"182JG 

ZZv IF.!j=igftHIKVS-'lS«JF '-.'■'■ 

--■: D0SUB12Sa M-H+l P0KE2943 i- V&aYS-S POKEftB»lI.Vi - ■ -■ ■ 

S30 PpKEAB+I^XS PRIHT"(T PRIHTTM »;*J .--■■. 

;;:' ^l 1 -''-'-,- 4 -"' 1 "-" 1 '^' 1 60-tO-iO I--L'.-.-..'--i ■•■-:-. ?. - .. . *, 

692 lrBQ'CQTHEt4BO :D 8 

893 POt fcUl-i.y 

iw iPTi^Tr ^ie^HEHPOKEfli : '" : '' ■' ;: " T; S8Wtfll ■ ^ ; '— ICHGOSUBiafiB 

ky IFtPKfiND32;-9G0T06Sa 

>jy IP<(PK flHB3IJ S0ftWKPRflHD32>"3a iTHEHDOSUBlZse 00T097e 

936 REM •* FIFFICHHOE DE:- PESULTflTS •* 

937 PEri 

J4a i>jiijtH5o VS=VStE0 £0=1^3'"* 

950 PRINT'M" PRJH7TfiB<ia)'3'V3iPRIHT*(r:PRIHTTfiI S :. E 

-b« -". , i=i4-V:. = iifi POrEnE-lL;i.:-.i FOI' EHB + ll ■ Vi F*. =FEEr ' *I- ■* ■ iVjIM^y 

370 IFVE<5GOTO190O 

37?. PK = PEE> .fnB + io,. 

33-3 IFVi.:-t-fjTHtntfi = '-.'i F Or.ERE+44 . -; F<jr £nB^21>0 

330 0010150 

935 REM 

1S0.J lFVS=^;-OuPVS=lc-;OPyS=ly t :lHEr^S=lS FOFEF.B-fl-.-l-- .-■.Mi-.l^i^ 
1O10 XS-72 P0KEfiB+lS,48 

10iti POiEftExiCj.,-.S FOKEL-IW-T.y FCiKEFlfl+7.0 PI =FEE> ■Fit-'-.-j. 
1030 VE=VE+1 : PRIHra"-PRituinB'.3fi>"S"VE OOTOkF..-. 

104O REM 

1341 pen »» RVRHCE RHF1DE *# 

104=: REM 

1060 IFjV=4&OTO110O f\ I "^V ; J 

10/0 ■■... ; ._t._- -.= :-: ;= - ^-::-henPl'>.EmB-1^.48 .-:=■=* rfv/ ^^i-r 

i-JS-j .- r lt . -i-*".o^Miii, = i2nrU... j>r^THEHXi = 72 iiOTull39 
10-.i .=-. -_ — _..■-:'. .--.'_-. i-_-ErE*-10.>:S 00TO1130 
::■■■■: '....tu^: ,.?=.-£.-: i [-/;;', jT'-EiiP.jH-.EFiij-i'i It -.i^i?.. 

11 10 IF'FEEr ■ ni-i-. l H:,:,ii.i=cr-.:,Ii..|.-.;;;THE^;- S=lo 00T0I13S 

1128 C=-C POra2045-197.3+C:POKEBB+ie,XS 

1 1 1-0 r 0RNH= 1 TQ50 : HEXTNH FOv EWU . : RET'JRII 
114© REM 

1141 REM *# FIRRIVEE ** 

1142 REM 

1150 POKEFlB+21,224 POKERE-t-32- 5 ^ P0KEF(B*-;O. 3 : POKEFlB- 10. 1 7fi POKEFlB*! 1 . 125 

lit;-!' P0KEF.B+12,13i-P'>.EFri.*lo,l25 FCKEFiB+14 , 1 SZ pr> Enh^ 15. 125 

lire pokeme-;.:. ;:?s pi;^ehe*23.235 

1 188 F0KESI + 19,83,P0KESI+2B,195-P0KELL,15 

[198 FORXX=1T051STEP3-POKESI+15*S<XX) POKESI+14<S(XX*l) POKESl-19,33 

12?;. =CSTS-1T0SCXX*2) NEXTTS 

1205 PGKESI-M3.32 

12>?7 I.EXIXX 

1210 P0KEflB*23,3I:p0KEHB+2S',31 

1220 POfffiRB+21,235 P0KEfiB*12-24 PC^EnP- 13-63 FOI tnE-14 -.4 FOKEMB+lS.fiS 

1230 P0KE284g,193 POKEFIB+32,6 POKERP-33. 3 RETURN 

1240 REM 

1241 REM «* OENERaTEuPS SONORES ** 

1242 REM 

1250 POKELL.15PCrtEHfi.21 POKEHH.0-POKETH.8 

l26y FOr.ETL.0Pr.KEFH. 14 FOKEFL . 162 ■ Fyv EHH, 17 

1270 FETURH 

1239 FEM 

1250 FORSX»15TO0STEP-1 

1388 •">tELL*7.SX.F0KE< ; iF.-7.i5 POKEnH-7-0 .FmEFM-7, 4y P0lffiFL+7.288 POKEMH*7,129 

1310 1IEXTSX 

i3i0 PETURN 

1330 REM 

1991 REM ** DflTfl ECHELlES ♦• 

1992 FEU 

2000 BMTFi 1 262 , 1 334 , 1 582 . 1 704 . 1 902 

£005 REM 

2886 REHM l-ftlfi LEfTFES W QEHERIQUE •• 

2O07 REM 

i'JIO EHtn5;..236 r r?.Z<?.7. 2^^.?25. 226- 3ib. 127. 3*7 Zi-W DhThO, ^0.0. 1 ,S4,0, 1 ,34.0 

^015 DRTflie8.48 98,486 23S.487>96.e,96-8 ^^ BFlTFiS. 35,0. 37,85. 128-37,85- 129 

2028 :- ■!.■ ... -. .?:-.; .?,?<:■ 3?-. ??■-: 3'.^-l?4,408 2366 DFiTFi37.B5.1 I :b,3.-.fc5. 128. 1.34,8 

2025 D-RTR98.469 9B-418. *6<e<96,8-96,B 2370 BRTR0. 160,0.0. 166,0.2. 168.8 

2^TU lnin\.}b,2*\ . ;..i- .? -■. ?r-..'.-.\ . t/ ', .'j-l?,,,'-, =:oO LirttHi. 163.0.9,86.0.1.164,8 

2035 BHTR371 .226.S72.251 - 17 "•.225.411 .2. '..41 3 2390 DRTFll -84. 0,0. 80.9- 1 ,4,8 

2040 WTH96 .0.1 .j,, 294 . ^ . i_^ . ;-:, . t \v, . ;■,-, . j jg 24O0 Dm 1 R3 ■ 83 . o -3,83, 9 . 1 . 4,0 

2045 I'HTH225. 375.225.415.36.0. 36.0. '^.0,-3F..y 2410 DRTFI0.S4.0. 1.35.0. 1 . .. 

2038 DftTfll88,297,98 J 2S«, 123,299,223,337,225 2428 DflTft0,8S,64,e,163,rS4, 10,229,64 

2055 DRTH333, 22-^.377,^:51. 373, 126. 375. 225. 41 7 ^ --J LHTm2. 1-3.64,2. 17O.12S.0. 179,0 

2060 DRTH127. 415. 3S. ..Jl- l^j, J0 C , 225. 340. 225 -4;.- ; - -. ;. ..i.y. 40. 0.0. 170,0 

2065 ERm342.2 c :':.. 3S0.225.332, 124,420,33.421 --• ■' : -■" 1 ■ ■'• 1-3 .-- I-.'.- .-, . ^ . .,', . 1,.« 

2070 DHTH253, 422,96,0, 189,383,108,383,223 2460 DnTR0,85,8. 1,69.. 9, 3, 69, 8 

20;'5 ['HIh;:4, .,,.'■. .r. .-.ci, 225. 335. 124.423 2470 DFiTHl .35.64 .0,69-0 ■ o. ..-..j 

^030 DRTH98,424 . r . .■■.' --,.0.103.306,188,386 2489 DfiTfi0,84,8,I,83,0,l,83.8 

2035 DRTR223, .4-.. 12?, M7,231, 348,225,386 2430 DRTRO.35,64 .3. i., 1 ,. 64, 10. 225. 64 

2030 LhTh2,.-.. . . ■_■..!,.• ,^25. 423. 36, 0.103 2500 Dm1)H2. 165.64,2,170, 123,0,170.0 

2995 DflTB309> 98,310, 123,311,223, M9,223,331 2510 DfiTB0,40,0,0,48,0,0, 178,0 

2100 -JMlh t 2;.,^.:t-3.226. 4.50, I ;>.- i91 225.429,96 2520 ORTRO, 179,0,0. 165.0.0, 101 . 128 

2195 BRTR9,103,312'.3<J.31.3,58.314.225,352 2530 DRTM0-65.O.0. 16.0.0 .-4 -n 

2110 DfiTfl223,392,226, J93,225, 432,96,0,96,8,96,0 2540 DRTR1 .35.0,9.34.0,0.9,9 

2120 REM --- 2550 DRTfiO. 9.9. 0.9-9, y. 14 .0 

2121 PEM ♦* DRTR SPRITES ** 2560 DftTrta, 31 ,0.0 -4a. 9, 9,224,0 

2122 PEM 2579 DRTR3, 192,9. 15, 192,0. 15. 192.0 

2138 DRTRO, 0.0. 1,4. 0,4, 31-0 2560 t'RIH7, 152, 0, 7. 132. 0. 14 , 192.8 

2140 DflTRl, 4,0,0,80-0,170,90,168 2590 DR-TR28, 128,0,63,0. 9, U7-9, 8 

2159 DflTRl 70. 59, 160. 1 70 . :-<0 . W9 . 255, 95.249 2t00 DhTh.^, 9,0. y.9, u,i..(... 

2160 DflTRl 70, 30, 160,170.30. 169.179,90,160 2619 DhTAO, 0.0. 11.0 .0.9,8,9 
2179 BRTFI179,39, 160, 170.59, 169. 170,90,160 2620 DRTR0.34.O, 1.35,9.1,84.0 
2130 DATRI70. 50. 160, 1. '0,98, 160.170,99,166 2639 DflTR3,80, 0,5, 104, 128,5, 174 1. 
2190 DRTR170,3O, 160. 1 70.30. 160-170,98,160 2640 DRTR6. 170.0, 19. 178,8.2. 168.8 
f--'>-' JJRTf.0,34,0. 1.^5.0- 1 ■>.■-...:> 2650 DRTFI9, 144-9.0- 144.9. 1,148.9 
2210 DflTftS.84,0,5, 104. 128,5, 110, 128 2669 DRTfll . 148.0, 1 , 148.9- 1 , 148,8 
2220 DATR5, 179,9, 19, 179,9,2, 168,9 2670 DRTR5,35,0, 9, 128,8.0. 128,0 
,v.,-.m ntirflO. 160,09. 160-9.2,168,9 2630 ERTR2. 160.0, 1 ,30.8,0,8,8 
2240 DRTR18, 178-0,33, 104, 129,9,84,0 2699 REM 

2250 DftTHl, 94,0,0,69,0,1,69,64 2691 REM ** DRTh HUSIQUE *♦ 

2260 DHTH5, 35. 9. 1,63-9,0,0,0 2692 PEM 

2278 DHTR0,84>0, 1.85,8,1,65,8 2709 DRTM23, 177,250,28,214,230.23, 177.250 

223.) I'M 1*5- 34, 9,5, 104, I2tf,5,174-128 2710 DRTR25 - 1 77 . 250 , 25 , 177. 125. 23. 214 

2230 DRTR5, 179, 0,19. 179, 9,2, 163, 6 2729 DRIRU5, 32,54. 759,25. 177,230,28.214 

2,00 Dm [flO, 160.0. 9. 160-0.2. 168.0 2730 DRTR259, 19,63-258, 15,63,250, 19,63-259 

.-. ,10 DRrH2, 163, 0,1, 104. 0,3, 100. 9 2740 DRTR21 , 154 .63.24.63,63.25. 177,259-24 

2 320 DM [H9. 34. 0,0. 16,0,9,84.0 2759 DRTR63125. 19,63,259 

2330 DflTRl, 85, 9, 0,34. 9,9. 9,9 3000 EMU ■ 
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MONITEUR AOS sp ec T RUM 



Voila un petit programme original qui permet de transfor- 
mer le spectrum en une calculatrice AOS cJu type Tl 59. 
Les programmes destines a ces machines sont ainsi 
accessibles aux possesseurs de SPECTRUM avec un 
minimum de travail de conversion. Simple et court, il ne 
pardonne pas 1'erreur dans I'ecriture des instructions, 
mais vous pouvezl'ameliorer dans differentes directions? 
(extension du jeu destructions, controle de syntaxe...). 



• GTO AAA . va a la ligne AAA 

• GSB AAA : sans programme de la ligne AAA I un seul niveau de 

• RET ; retourne I sous-programme 



• DSZAAA:decrementetamemoireietvaalaligneAAAjusqu'aceque 
la memoire 1 soil nulle. 

L'avanlage de ce moniteur est de permellre ladaplation des program- 
mes des Tl sur le SPECTRUM II eut ete facile de trouver un programme 
de demonstration mathematique e'est pour cela que je vous presente 
un programme de jeux . il laut donner un nombre entre et 100 : 

001 AINT(RND'IOO) 

002 X F 

LucBRUNET 003 AC 



Moded'emploi ; 

1. Ialistedesmemoirescelaaffichelen : desmemoires[ilyena9)ainsi 
que leur contenu II affiche aussi le contenu de la memoire de test F. 
Vous pouvez les modifier (sauf pour F) en repondant "0" a la question 
puis en indiquant le n* et la valeur de (a memoire a modifier. 

2 Reset : si vous repondez "0" a la demande de confirmation, le moni- 
teur lui-meme est detruit 

3 liste du progamme AOS : 

La 1*'' ligne s'afficne pour obtenir les suivantes, presser une touche 
quelconque quand vous voulez renlrer une ligne de programme, pres- 
sez SPACE et I'ordinateur vous demande d'entrerla ligne. REM : quand 
la derniere ligne entree est apparue. le SPECTRUM va directement de- 
mander une nouvelle ligne. 

Quand le curseur " [C]" est ia. une presston sur "ENTER" revient au me- 
nu, sans porte de donnee. 
La synlaxe des Itgnes AOS est la suivante : 

ESPACE 
xxx • I N S instruction (voir a la suite) 
rt° de ligne entre 
et 1000 toujours 
de3Chiffres 

Exemple pour la ligne 10 entrerOIO. 
Pour supprimer une ligne entrer son n" (toujours de 3 caracleres) 

4 effacement du programme en AOS si on confirme I'ordre. 

5. execution du programme en AOS. En cours d'execution, une pres- 
Sion sur SPACE rameneau menu. Au debut ilfaut rentrer une valeur nu- 
merique qui sera la valeur du calculateur au debut du programme. 

6. Save : 1 . sauvegarde du moniteur avec perte du programme AOS 

2 sauvegarde de I'AOS sans le moniteur. 

7. LAOD : recherche d'un programme AOS sauve sur cassette pour la 

deuxieme option de la fonction 6. 

Le jeu destruction est : 

- A expression Cette instruction a pour effet de changer le calculateur 
avec la valeur de rexpression. Cette derniere peut utiliser toutes les 
fonctions et operations du SPECTRUM mais en particulier, elle peut 
referencer une memoire quelconque par lesymboleM(n)ainsi que la 
valeur courante du calculateur par lesymboleC. Linstruction RCLn 
est done traduite par A M(n). 

• OP Expression cette instruction execute ['operation indiquee par Op 
(1 caractere : +, -, *, /, *) entre le calculateur et t'expression le resultat 
allant bien sur dans le calculateur. ex : + 1 

• Fonction : cette instruction applique la fonction indiquee au calcula- 
teur ex SOR. 

Les instructions suivantes dont le mnemonique est en general de trois 
caracteres peuvent comporter un argument numerique : dans ce cas 
un blanc separe mnemonique et argument. 

• EXC A : echange le calculateur avec la memoire A 

• SUM A : realise calculateur + memoire A le resultat etant mis dans la 
memoire A sans influencer le calculateur. 

• PRD A : Idem mais en multipliant 

• X — F : Echange le calculateur avec la memoire de test F 

• X — F tests : si e'est vrai alors le programme va a la ligne suivante 
X<F sinon il saute une ligne 

X>F 
REM : la ligne suivant le test doit toujours etre d'une unite plus grande 
quecelledu test: EX001 X>F 

0025 TP 

010? 

• ? : demande une valeur pour ie calculateur 

• STP arrete ['execution du programme AOS. Une pression sur une 
touche ramene su menu. 

• MAC : efface les memoires 1 a 9 

• AC : efface le calculateur 

• PAU : Pause 1 s 

• FRA : partie fractionnaire du calculateur 

• RST ; revient au debut du programme AOS et recommence I'ex6- 
cution. 



on x=2 



4 PRINT FLASH i, INK 3;"HOMI~ 
EUR DE NOT ATI OH RLGEBRIOUE " : PR 
TNT RT 21,0; INK 1 ; " O X '* ; FIT 20,0; 

''51983 LUC BRUMET" 

5 PRINT RT 10,0, FLASH 1; "MET 

rez-uous en crps lock.-.- input g* 

: CL3 

6 BORDER 5: INK 0. PAPER S 
10 DIM Ft* flee ,30J 

20 DIM M(9): LET FF=0 

30 CLS : BEEP .1,1 

4.0 PRINT FLR3M 1; ">>>>> >Ndt at J 
on a i g e b r i q.u e < ■: -; -; ■: ■: -i " 

50 PRINT : PRINT 

&0 PRINT "1. lisle memoires": P 
RINT "2. RESET-: PRINT "3- Liste p 
■" 09 ratnme " : PRINT "<t . e f fa cement" ; 

PRINT "5. RUN-: PRINT "S.save": 
PRINT "7. lOSd" 

70 PRU5E 

71 LET IS=INKEYS 

72 IF I*<>"£" THEN GO TO SO 

75 IF I*="2" THEN INPUT "CDNFI 
RMRTIOf-l DU RESET(0/N)";G$: IF GS 
="0" THEN NEU 

60 LET X=URL It: IF 
OR X=0 THEN GO TO 70 

90 GO TO X*1000 
100 STOP 

999 rem uste des memo ires 

1000 BEEP .1,1. CLS : PRINT FLOS 
H 1; "**.********* HEMOIRES ****** 
*****'■; PRINT : PRINT 
1010 PRINT ••NO";" CONTENU" 

1020 FOR F=l TO 9: PRINT F; " 

" ; M CFJ : NEXT F 

1025 PRINT -F -;FF 

1030 PRINT PRINT "you LGZ-VOUS 

changer une memoire" 

1040MNPUT "0/N";OJ: IF 0$<>"0" 
AND OSO"N" THEN GO TO 1040 
1B50 IF OJ="N" THEN GO TO 30 
10&0 INPUT "NO ";X: INPUT "URLEU 
ft "; U: LET M (XI "U 
1070 GO TO 1000 

=.'000 REM acquisition des Lignes 
3020 BEEP .1,1: INPUT T* 

2021 IF Ti="" THEN GO TO 30 

2022 IF LEN T*=3 THEN LET P.S <URL 
Tf) ="" : GO TO 2020 

3030 LET LI = URL Tit TO 3)-. LET R 

* (LI) =T* 

2040 PRINT T*: GO TO 2020 

2999 REM I i s tage du programme 

3000 CLS : BEEP .1,1: PRINT 
INT 
3010 FOR F=l TO 100 

3020 IF flt(F,l)=" - THEN NEXT F 

3025 IF F=101 THEM GO TO S020 

3030 PRINT H*<F): PfiUSE 

3040 > IF INKEVS=CHR* 32 THEN GO T 

O 2020 

3050 INPUT 0; NEXT F : GO TO 2020 

3999 REM a f fsieo^nt >±>j progr.j»»« 

4-000 CLS : BEEP .1,1 

4810 INPUT "confirmation de t'or 

dre(o/n)";i$ 

4020 IF iJ="N" THEN GO TO 30 

4.030 IF i « = "0" THEN RON 10 

4999 REM execution du programme 

3000 CLS : BEEP .1,1 

3010 INPUT "URLEUR DE DEPART " ; C 

PAUSE 23 
S020 FOR A=l TO 100 
3025 IF INKEY$=CHP* 32 THEN GO T 



PR 



O 30 



SIR 



,1) ■ 
RIN1 



3045 IF R=101 THEN GO TO 5500 

3050>LET B$=A$(A) (5 TO i : LET C* 

=B*( TO 3) : BEEP .1,1 

'r,G55 IF OS fl) -■■<?" THEN LET C = UR!. 



r :')■'. 

005 
006 
007 
008 
009 
010 
011 
020 
021 
030 
031 




i ENTREZ VOTRE NOMBRE 



GTO 030 
; GAGNE 
STP 

5 TROP PETIT 
GTO 003 
C trop grand 
GTO 003 



... LET C=0: I'. 
EXT B 

^-065 IF CS (11 =■■?'■ THEf< INPUT C-. 
•IEXT A 

336S IF C*(1)="0" THEN PRINT AT 
2,8;St>:a TO ): PAUSE 50: CLS : N 
EXT R 

5067 IF C$="STP" THEM GO TO 9E3 
5070 IF Ci = "GTQ" THEN LET As'JFtL 
(B«(5 TO M-l: NEXT A 
3076 IF CS="MAC" THEN DIM Mt9): 
NEXT A 

■3080 IF C£ = "PAU- THEM PAUSE 50 
NEXT Ft 

5090 IF CS="RST" 
5100 IF CSs"DSZ" 

NEXT R 
3110>IF C*="DSZ" THEN LET HC1); 
tl) -1: LET R = URL " 
MEXT A 
5120 IF Ct="G&3" THEN 

LET R=UAL IBS (5 TO ))-!: NEXT w 
5130 IF C*="RET" THEN LET R=GSB 

NEXT A 
5140 IF C5="STO" THEN LET MCURL 
BI IS) ) =C : NEXT ft 

5160 IF CS="5UM" THEN LET MtURL 
B* t5) ) =C+M IUAL B*l5)i: NEXT R 
5170 IF C$s"PRD" THEN LET MIURL 
BI15)1 =C*H(URL B«(S)l: NEXT R 
5180 IF Ct="EXC" THEN LET E =C : L 
ET C=HIURL B$(5)) : LET MIURL BSl 
5) ) =E: NEXT R 

3200 IF CS="FRfi" THEN LET CeC-IN 
T C: NEXT fl 

5210 IF B(tl) ="+" OR B*(l) =■'-" T 
HEN LET C=C+URL B*: NEXT R 
5220>IF 8»(1) =■••" THEN LET CcC/M 
RL B*(£ TO 1 : NEXT R 

5230 IF B*(l)="*" THEN LET C=C-iU 
AL B* (2 TO ) : NEXT R 

5240 IF Ct = "X__F" THEN LET E=C: L 
ET C=FF: LET FF=E: NEXT R 
5405 IF C*(1)<>"X" THEN GO TO 51 
40 



(B«C5 TO 



LET GSB= 



2$ 



= THE 



5420 IF C»(1)="X" AND TEST ■ 

N LET R=R+1: NEXT R 

5430 IF TEST=1 THEN NEXT R 

5440 IF C$(l)="t" THEN LET K * =ST 

RS C+B*: LET C=URL K*: NEXT .R 

5450 LET K*=B**STR* C: LET C =UAL 

K»: NEXT R 
5500 PRINT "RETOUR PRESSEZ UNE T 
OUCME" 

5505 PRUSE 
5510 GO TO 30 
5999 REM sauvegarde 
5000 DEEP .1,1: CL5 

S010 PRINT " 1 . 5RUUEGRRDE DU MONI 
TEUR" ; PRINT "2.5AUUEGRRDE DU PR 
OGRRMME" : PRINT "EN ROS" 
6020 INPUT I 

S030 IF 1=1 THEN GO TO 7100 
oO40 IF 1=2 THEN INPUT "NOM DU P 
ROGRRMHE- , S»: SPUE 5* DRTR P«(> 
5050 GO TO 30 

5999 REM recherche du programme 
7000 CLS : BEEP .1,1 
7020 LORD " " DRTR At ( 1 
7030 SO TO 30 
7 100 CLERP 

7110 5RUE -P.O.S." LINE 7120 
7120 RUN 
^000 IF INKEY* <>"■■ THEN GO TO 90 

THEN GO TO 901 



00 

9010 IF INKEYt= 



9020 GO TO 
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,-::z 1-12 

'.C1T IFtMfl2TH£HI66B 

1648 l»I*14 IFWIKfi: ■ ■- MiMtasrcosueisw 

163! PI-PI *PiO? T 0l«4B 

1669 0"8-I-:e RETURN 

1678 0-1 !?-[ P"8 
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Z-.ll PRIMTtpiht PRIHT PBINT 
2289 FOPij-lTOG PRIHTfeKU) MEXT 

2219 PR;NT50:$>."P". 

:::^ ffi^-t:^ C5>> >■ ■ .' :: .:;:-::: wovtriEEE :??-" 
?:—■ "■;■*!- ccfvs;i>t i?;i '. :?;; i us cc^vpic^t 
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^323 PRirr-S'.irv-WTES 0«T EIE ROCP'EEl 

2330 PP.'H'" - LE 3 3 -iE : ''E :3MP0«TE SUE M OTSES CPU LIEU DE 15) 
IEKE '" JOUEUS EST LIMITE fi 2 

IF" : r ": PE'JVENT ■..-■■ E -Z: Lr.TTPE: K LEWt V0I8IN* 

LE ",<->F*'?*:'."eLWiCHP*f34} EST ■ ■,--!■-! .,■■■■ 



£349 F 
2:50 PPIHT" 
2369 PRINT 

,CHP«i34> 

2--70 fp'ht ■-■:■■■ -■ ":■•"■ ■:'■:- .r^'. ■"■;:''"'- cj def'.'T di.h (iot.po?itionf: le- 
: -.i C Fp;<iT" i ;i. 1 pc Eu o E n !^ct emcpoit R l'pice et! * c lf:-;' m=ect;omiellES. ■■ 
.r :■•,' .'r.-:Tio W , E ,nrpfj,t: :-jp la eappe esffiCe.eh cfi^- : "~ 
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5., K «-:nT '■ : -'--■-.-; ..(.E ;... FL.-IEUP' L£TTPE3.TfiPE2 ' -CWRt<34] ■lEflCHttO 

4>i" WJ LIEU" 

2^07 PRIMT'D'ENTREB JN BOT.' 

2419 F0RU-1T06888 MEXT BQT06 

2388 C9-1 GO3U8980 PPIMT?'.306). 'CL'ELLE? 80HT LES LETTBES « ECHWCEB " »*UTM J 

■- :■■ ■..■■ ■■ .■ :■■ 
2310 IFl-I J8-] L-- 

' r-0 111-0 GOT01W 
;::> Fc-->v:-;_r..'Fi, tj.kid*(8», 
n,i ■ co$uass4e next c9«fl'Ccmj7S4 

254-3 IFT«-"fl" flfi*nP-l 

j338 ift8--c' hc-hc-i 

2560 :p-i- : 

:t"o :ft*-"E" he-me-1 

2390 IfTI* f HE«HE-1 

;;i3 !FTt-',' MC«W-i 

2£00 IFTfH" «H-t«-l 

2Tik> ;^-t- : HI ■'■ 
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■ ■.■ Jl T. ■ ■ ■ ■■ 

2648 IF"- 

■ : ■t-"M" flfl'lfl- 1 

2668 ;FT*-'i NM-HN-] 
2670 ! f -i 
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■ 'i a- iia-t;o-i 
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CARRE DIABOLIQUE 



i PB1NT-CHOI8ISSE2 VOTRE NODELE. . " PJTP 



JEU TOOELE MO 2 



Les possesseurs de T07 vont devoir faire s'activer leurs 
petites cellules grises avec ce programme "CARRES 
DIABOLIQUES". 

Le but dujeu est deremplirune grille a I'aided'un motif se- 
lectionne au depart. Ce motif est lui aussi dans un carre. 
Le motif est recopie a 1'emplacement specifie par le 
crayon optique et peut allumer un point eteint ou eteindre 
un point allume. Aiors. c'est pas diabolique ca ! Le jeu est 
simple mais passionnant. 

Chantal DALLE 



* CLS SCREEH4.5.3 

im (.in ,. 9.3 . 

29 lk»te2»i2,8 miRei-i print-carres djaboliques" 

■ Li R7 BOM 8.9 — 39,14 OH* 42 > 

39 PLFiY"rj^xj4SOSOMISO05D0ms»lIDOO4$0S0S005l>0" 

J* ' REGLES DO JEU 

■■-'■ 

4f< fi!TP&y.0 C0L0P4 CLS 

y LOCnTEB,|.a f*IHT"CHaiSISSEZ VOTRE HOC-ELE DC REFERENCE..' PRINT-PRINT" PuINiE 
2 LINE CfiSC Et LE DESSIN tOPPEbPrrlfcHMT FiU MuL-ELE S 0LLUMEPH. . " 

2 E£!t£ ^; M J" ftTT EHIIW. L ES CASES DEJfl HUJJHEES S'ETEIHDRONT.. .' 

jfl PPINT PPINT- SI TOUTES LE? CfiSES SUNT RLUJHEEi , VOUS fiVEZ CACHE.." 

r| B^T"^ Sl '"' OI - tS WA£Z fiefiHPONNEP-OU ChhuCEP DE NODELE nFRUYEZ SUP LE CflR 

83 COLOR? -PRINT -PRINT PRINT" flPPUVEZ SUP ENTREE POUR CH018IR UM MCOEL6.. ."-COLOR 

88 Rk-INKEV* 

98 N*=tf#EYS IF Fl*="THEN>0 

94 IF Ft*-CHR*; 1 3 >THEH 96 

36 CLS SCREEN4.5.5 HTTP68.8 LOCF1TE6.] 

ei.i clef* ccr^jjB ve«-i-.T i:osijB£8eeie 

'ft.^TRee-l LOCHTEe-14,8 PRIHT-TOUCHE l"<L0CflfTE21,14,e-PRlNT-T0yCHE . 

185 F9-INKEY9 IF F*="THEN185 

115 IF F*=-1-THEN CLEF* GOTO 6858 

128 IF FS=-2"THEN CLEAR ■ GOTO 1 78 

138 IF F*<> -I" OR ft»0"2" THEN18? 

178 G0$U&4ee86 

362 ' 

364 ' 

■366 ' 

378 

568 L0CfUE28.15,8 (HTTPB0. 1 PPINT'TIODELE HO 2" ■ FtTTPBl , I 

T.?e KiXF< 384, 184 >-< 319,1950, 4 

588 IMPIJTPEN M-B PLftY"L3DGrllDO" 

-;84 IF fl>384 FUD B>184 THEN96 

605 IF FK28 OF B--'28 OP 8M48 OP BM48THENS86 

618 X=KFt-20>&24+l Y*<B-28X»24-U 

628 IF K<X,Y>=6THEN K(X,Y>=1 ELSE K(X»Y>«9 

638 IF Y=l 8KXXM Ft* X<5 >THENGUTO1808 * v 

648 IF y=5 F*CKX>1 8N0 X<5>THENG0T01188 

658 IF X=l F** <Y>1 AND Y<5>THENI288 

668 IF X=5 FMCKY>I AND Y<5>THEN1380 

678 IF X=l AHO V-l THEN G0T01488 

688 IF K-J F»1D Y-a THEN G0T0I588 

658 IF X=5 AND Y=i THENC0Trji688 

798 IF X-3 FfND Y=5 THEN G0TQ1788 

785 ' 

718 'TESTS DE MILIEU, C>E BOPD,[>E FIN 

728 ' 

738 IF f"X*l-Y.'=8THEN WX*I,Y>-! ELSE tf<X+l , Y>=8 

748 [F K(X-1,Y /=9THEN K<X-I,Y>-1 ELSE K'X-1.Y)=8 

758 IF X<X,Y*1 >=8THEN K<.X,Y+1/=1 ELSE K<X,Y+I>-0 

768 IF K/X.Y-I /iBTHEN K<X,Y-I>=1 ELSE K(X f Y*IM 

778 COTO5808 

1888 IF K'X+l.Y.=8THEN H)M,YH ELSE l«X>l,Y>«9 

1818 IF KYX-l,Y>=8THEH K(X-1,Y>=1 ELSE KfX-l-Y)=8 

1628 IF K(X,Y+I >=8THEN K'X,Y+1>=1 ELSE K"" X , Y* I >-0 

1839 GOT05888 

1188 IF ^X-l.Y-OTHEN WX-l/YJ-1 ELSE K<X-1.Y>=8 

UI8 IF K'X*I.Yf=8THEH K'.X*I.Y<-1 ELSE KCX*1/Y>«9 

1128 IF K'X.7-1 <-8THEN K<X,Y-1>»I ELSE KOC/Y-1X 

1138 G0T05888 

1288 IF KXX>1.Y/=8THEN f<X+l . Y>-1 ELSE K'X*l.Y>-8 

1218 IF KfX.Y+l>«8THOI K<X,Y+I>-1 ELSE K'X,Y*l>-8 

1228 IF K'X.Y-I ;=87HEN K<X,Y~1>>1 ELSE K'X-Y-!>»8 

1238 riOT05888 

:'^8 IF K(X-l.YJ-8THEN K<X-1.Y>=I ELSE K<X-1-Y>=8 

1318 IF K'X.Y*1 <-8THEN KfX.Y+I j»l ELSE KCX.YM J-B 

:j28 IF KCX-Y-1 --8THEH IffX.Y-lJ-l ELSE KCX,Y-l)-8 

: *38 GOT05888 

1468 IF K12.I J-8THEN K(2,I>-1 ELSE K<2,IJ-3 

M18 IF K< l-2/=8 THEN KCl.ZVl ELSE (f( 1,2>8 

M28 G0T05888 

1588 IF f ' I . 4 >-8THEN Y<\,4i"\ ELSE l"l,4J-0 

1518 IF K'2,5>=8 THEN KC2-5J-I ELSE KC2.5J-B 

1528 G0T05888 

1688 IF KM, I ,»8THEN KM, I >-l ELSE K<4,1 )-8 

1618 IF K'5.2-8 THEN K'5.2>-1 ELSE K(5.2>8 

1628 G0T05888 

1788 IF K'5.4>-0TH£N K<5,4>1 ELSE K<5,4>-8 

1718 IF KM.5>-8 THEN KM.5J-1 ELSE KM.5>8 

1728 G0T05888 

4998 ' 

5888 ' TEST D€ FIN 

5885 ' 

5818 FOP Y-1T03 

5829 FOP z-1105 

5848 IF K'X.Y>-8 THEN L0CftTE3«X,3«Y*l .8 COLOP 4 PPINT"*". 

COLOR? PRINT"*"* 
5858 NEXT X,Y 
=»68 G0T068O8 

6888 FOP Y-tT03 FOR X-1T05 
6818 IF K(X*YX>iTHEH68fl 




ELSE LOCATE.^:: WY*| 



■ ■ ■ 

CftTE8 : - ■■ FtTTROe ::. R7 PRINT "BRAVO. VOUS ETES Fos-?>- 

- fiiMXMSoaosoosKr 

6858 CLS C0TO9* 
WW UfSUtWMW 

see 

?8I8 JEU M«.C€LE MO 1 

7828 ' 

.'IK' Fuf I = lr.-»T02i'6SlEP24 

7128 LIME- I ,28 M 1. 92 >• NEXT 

^!?0 FOP [»28 to 92STEP24 

7140 LINE' 16-4.1 — .236.1' NEXT 

7158 K<7<1 >=1 KC9- 1 "1 KCfi 2>-l ■ 7.3>e] Rr -. .1 

7169 FOP Y-I7D3 

717E' FOP X-7T09 

7!*e- IF K(X.Y>-1THEHCOLOR7 L0CATE3IX. ?*Y*1 .0 PRINr- 

*! PPINyr". 

7199 next :■:.■,■ 

r>08 OJLMP4 UXATE2O.15.0 HTTPB9>1 PR1HT-H0OELE NO 1 ' Ffl7R9l 

7295 BOXFi 384,]S4.-< 319. 199 '.4 

7218 tHPUTPEH A.B PLAY"L3M1<J3!1I " 

7215 IF R>394 Aftt' B>184 THEN96 

7228 IF M/20 OP ?.■ &, CIR A>146 OP B~14nTHEN7219 

7z;-?i v.=: fl-2fl 1624+1 Y=> B-28 «24+I 

7248 IF y /..-/ -=8THEH K(X>Y>»1 ELSE KtlOYM 

7258 IF .=1 AML.-'X-l H1K> V.' 5 ■THENGOTOK--?^ 

7268 IF Y=5 ANC-;-:-l At*. X- 5 >THENGOTO18108 

7270 IF X-l AND <Y>1 FiND Y* 5 JTHEN10288 

72SO IF X=5 RMXY>1 ANC- Y<5>THEN10388 

7298 IF S.-1 Frttf- Y=I THEN G0T01B488 

7380 IF ;■:=! FftU- y=5 THEH GOT010588 

7310 IF X=3 MNt' Y=I THEf*GOTO10608 

--■::■■ if --■-: ->::, ■,-=■■;. :i-= f . :--:;.--.■.. 

7325 ' 

73S0 'TESTS DE MILIEU-DE BORD'DE FIN 

7335 ' 

7340 IF KiX*l,t-i .=PTHEN K<X+1,Y-I> 

7358 IF K<X-liY-l>9THEH K<X-I,Y-I>: 

7360 IF K<X-I.Y+1><9THEN WX-I,Y+I> 




ELSE COL0R4 LOCATE I 



TO 1 



ELSE KCX*I-Y-1>=0 
ELSE KtX-lY-1 "v 
ELSE K<X-1»Y+1> 



7370 IF K<X+1,Y+1>-8THEH K<X*1,Y*15=1 ELSE KtX+1 , Y*i *-8 

r3?0 GOTOl 1800 

10088 IF K<X+I,Y)=8THEN K(X+1-Y»=1 ELSE K(X+1.Y>>9 

10810 IF K<X-1jY+1>9THEH K<X-1,Y+1>-1 ELSE >- "X-l .Y+l )=8 

18820 IF K'X+l-Y-1 -0THE1I K<:->1 .Y+l >=1 ELSE K<X»l.Y*l>-8 

18830 GC1TOII888 

18108 IF K(X+1,Y-1 >=.0THEN KtX+l.Y-lV> t ELSE K<X+1 VI ■ B 

18110 IF K'X-1 .Y-l >=8THEN K(X-l,Y-n=l ELSE K<X,-1,Y-1MI 

18120 GOTO11088 

10288 IF K(X+I.Y-1>=8TH£N K(X+1.Y-1>=1 ELSE K<X+l/Y-D-9 

10210 IF KCX+l.Y+D-OnEN WX+UY+lJ-l ELSE K(»1.Y+1>=0 

10220 GOTO 11888 

10388 IF k/X-l,Y-i >=8THEN K<X-i.Y-i>=i ELSE K(M,Y-IH) 

10318 IF K<X-1,Y+1>=8THEN K<X-1.Y+1>=1 ELSE K<X-1.Y*1>«9 

10400 IF K<»1,Y+1 ^BTHEN KCX+1-Y+D-I ELSE *,<. X+l . Y+l ••=« 

10418 G0T011999 

18580 IF K(X+1.Y-1 >x0THEN K<X+I,Y-1>=1 ELSE K(X+I-Y-t>«0 

18518 GOTO11088 

10680 IF K(X-1,Y+1>-8THEN K(X-I.Y*1)=1 ELSE K<X-l.Y+t>-9 

10618 G0T0I1888 

10780 IF K<X-1.Y-1>=8THEN KCX-1.Y-1>*I ELSE K(X-I.Y-l»-9 

I07I0 G0T01 1088 

18900 ' 

11898 • TEST DE FIN 

11085 ' 

11010 FOP Y-1T0S 

11028 FOP X-1TTJ3 

11058 TF v-::. v.=8 THEN LOCATE3t>:.3iy+1.0:COLOP 4 PRINT"*". ELS LOCATI I IY*I 

Q COLOR? PR!NT-«"i 

1 1048 NEXT X.Y 

11050 GOTO] 1868 

U868 FOP Y-1TQ5 FOR X-1I05 

11979 IF Ki X,Y "■ IIHEH7218 

1 1.1*0 next :: r 

11999 LC<hTE0.I9,8 ATTPB0.1XOLOR7 PPINT"BPHVi.i.v^i:i ETES FORI'" 

1 I iflii pi M','"i.t4'rOn',| .,;.,. i : . i ; . l ..;ir-.F, „■;.(. ,;,ni-;riniD'-|"-l'-.iv-.u-:.(,i 1 -,[. 1 v 

11118 G0T056 

12088 END 

19888 ' 

19018 ' GPILLE MODELE NO 2 



918 



. y )-e 



I NEXT 



2fi0?ct FOP I = 164Tr.236STEP24 

20848 C0LOR4 LIME' I 28--U.92) 

20858 FOP 1=20 TO 92STEP24 

20060 LIHEU64.I i-',236-I )NEXT 

20078 K<8-1 '=1 K(?.2>»i-K<8,2>-1 K<9.2>-1 K<8.3>-1 

28830 FOP Y=1T03FOR X-7T09 

2009O IF V X.YJ'lTHEHCCiLOP? L0CATE3*X. 3*Y*t ,8 PPINT"*" 

Y+l PRIMT"*"J 

28100 NEXT X,Y 

201 10 PE [IJPN 

25088 ' 

29818 ■ GPILLE MODELE NO I 

29828 ■ 

30808 FOP ]»44Triii6STEP24 

38810 LINE< I.28)-<I,92> NEXT 

:,O020 FOP 1-28 TO 92STEP24 

38820 LIHEf44,I >-< 116. 1 >'NEXT 

30048 K'2,1 )=1'K(4.1 >«l 'KO,2)-l'K(2,3)"l'KM.3)-l 

38858 FOP Y=1T03 

38860 FOP X-2T04 

50O78 IF Y( X.y>-1THENC0L0P7 L0CBTE3*X. 3*Y» 1 , 8 PRINT"*" 

Y+l ipRINT"*") 

39998 NEXT X,Y 

19999 RETURN 



ELSE C0L0P4 i.ur ..fi[(- .MX- .1 



'ELSE C0L0R4'L0CATE3*X.3* 



i0910 
38928 
■IO80fi 

40010 

40020 
48838 



GRILLE DE JEU 

CLS SCREEN4.5-5 

FOP I-28T0I46STEP24 L1NE( I,28i-< 1, 148) 'NEXT 
FOR I«28T0148STEP24 LINE' 20. I >-< 148-1 VNEXT 
FOP Y=MT05 

FOP X-IT05 
ATTP81.1 LOCATE 3tX.3*Y+l ,8'PRINT"*" 
NEXTX , Y 
RETURN 
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2322232225533333 
■5I9:3s(i3j=3$(8)**2223222 

520: 3f (17**2232233222223 

22322222253352222223 

2252««44654<:44426F J 65 
664«*263?77b2222 

5*at«£TURh 
300:3*(e)»":3*<l)»* , J 

■*Ctl~ '.5: ?0R C=8 Tfj 
61 SoflD 3*C):h= LEW 
3»<9) 
302ifOR I»l "0 A-2S STE° 



3: 3 RI>T f^irjj <3«(3) 

.:,2*): sex- : 

365:-0° 1=1 TO 20 STEP 3 
: PRINT RIGHT! (B$(0 
)»25-I)i LEFTS <3$(i 
>tl*lU NEXT ::S$(9) 
=B*(l>i NEXT C 

350:3fi'« 'VOOS E'ES A'J V 
ILLAGE DES .nItjARS » 
V0U8 AVI2 ?£TjS8IT VC 
"E MISSION . VOUS ' 

355: DATA "E"S RICHE • V 
JUS -AI'ES 1AI*'TCSAN 
- »Aft M I ■ DU CE9ClE 



t?es restraint * 
udata -3es courageux 
EXPlQRrTEURS qui son 
■ REVEHUS VIVRNT8 jU 

"AhOlK DU CQ^TE * 
i:DATA "20RCK . "LUS T 
ARD VOUS P0U3RE2 ?AC 
OnTEZ A VOS PE'ITS E 
n^AiTS COTtrEsT VOUS* 
i:DATA * AVEZ VfllMCU _ 
OUS LES ^OnSTRES f l 
ORS J UNE JOURnEE 1A 

:--"£-.a>*t - 

:jfi'A 'INNOUSUIABLE 3 
OUS VOUS ... AU REVO 



ORTR * * 

•■«a;~ : RR>7 "VCTRE 
*S£80R i'IZ(T>l* i": 
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semaines. Et en plus, tt la tin du tri- 
mestre vous vous rotrouverez peut- 
Otre. comme Gillcs GBAPINET notro 
dernier gagnant. en train do vous 
promenor entre SAN FRANCISCO, 
LAS VEGAS on LOS ANGELES ■ 
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Systeme personnel HEWLETT-PACKARD 41 

Prix TTC 

HP 4IC -f module quadruple HP 32 1 70 Promotion 

Leaeurs de carte HP 32I04 

Imprimante HP 82143 

Lecteur de cassettes digitales 

Module HP IL HP 82I60 

Module X fonciions HP 82I80 Promotion 

Module mathematiques 304I-I50I0 

BatterieHP4lHP82!20 

Chargeur HP 41 HP 82066B 

Livrets d'appiication |28 litres) 

Jeu de 4 grilles designation HP 82I52 

Clavier a membrane HP 82200 



1.500F 


n 


I 650 F 




3.350 F 




4 250F 




I 060 F 


I ll 


500 F 


u 


310F 


I i 


370 F 




140F 


I 


I35F 


i 


I IS F 


I 


235 F 


I J 



Produits compatibles HP 41 

Port expander 8 entrees et sorties 

Table tracante 4 couleurs landy interface HP IL 

Livres 

Programme HP 41 
AufbnddelaHP4l 
Autour de la boucle 

Calculator tips and routines |en anglais] 
The HP IL system: an introductory Guide 
to the Hewlett Packard interface loop 



CANON X 07 

Canon X 07 8k 

Canon X 07 + module XI? 100 

Imprimante thermique X 71! 

Imprimanre/ table tracante X 710 

Coupleur optique X 721 

Convenrsseur de nrveaux X 722 

Carte memoire 4k XM 100 

Cable cassette XC 910 

Cable Centronics XC 930 

Cable de liaison pour X 722 XC 940 

Logiaels fichiers 

Adaptateur secteur pour X 07 AD 411 



Calculatrices TEXAS INSTRUMENTS 

TJ 30 LCD 

TJ35 

Tl 55 II 

Tl 57 diodes 

Tl 57 cnstaux liquides 

PC I00C 

Modules Tl 58/59 

Jeux |manuel en anq\si%\ 

Securities |manuel en anglais) 

Electronique 

Mathematiques 

RPN (manuel en anglais) 

Surveying |manue! en anglais) 



1.250 F i D i 
5.900 F | □ 



102 F 
100F 
100 F 


□ 

a 

O 


184 F 


a 


295 F 


a 



2. 1 70 F 


n 


2.950 F 


1 1 


795 F 




I650F 


1 


480 F 


i 


600 F 


i 


3e9F C 


59 F D 


268 F D 


150F 


495 F □ 


60 F 


U 



I09F 


n 


140F 


1 1 


260 F 


i 


240 F 
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240 F 


1 1 


1.750F 


u 


285 F 


n 


285 F 




285 F 




285 F 




285 F 




285 F 


i 



Unite centrale 

Codeur SECAM 

Lecteur enregistreur 

Extension memoire 16k 

Contrdleur com. 

Son et jeux 

Memo Basic 

Imprimante thermique 

Cordon imprimante thermique 

Imprimante Impact 

Cordon imprimante Impact 

Contr, led. disquette 

Lea. disquette 

Rouleau papier thermique 

Logiciels Answare 
Budget familial 
Carnet d'adresses 
Gerez voire bibliotheque 
Gerez vos fiches 

Livres 

Initiation au Basic T07 
Manuel de reference (SavemaJ 
Basic D.O.S. du T07 
Un ordinateur en fete 
(Jn ordinateur a la maison 
Un ordinateur et des jeux 



Logiciels V1FI Nathan pour T07 Thomson 

Atomium 

Echo 

Survivor 

Logicod 

Gemini 

Crypto 

Motus 

Tridi 444 

Trap 

Pictor 

Melodia 

Ilium 

Melirnemot 

Casino 

Guest from) 

Cassette quesL histoire geo. 

Casette quest, sports 

Casette quest, sciences et decouvertes 

Cocktail I 

Cocktail 2 

Cocktail 3 

Sauterelle 

Basic vol. 1 

Basic vol. 2 

Comp. et mult. 

Systeme metrique 

Carre magique 

L'horloge 

Encadrement 

Carotte maficieuse 

Dietetique 

Allemand vol. I 

Allemand vol. 2 

Mots croises vol. 1 

Mots croises vol. 2 

Mots en fleurs 

Signes dans I'espace 

Ronde des chiffres 

Cane de France 

Noix de coco 

Ecole des maths vol. I 

Ecole des maths vol. 2 



LeBancexphquP 
Au ccet/r du Basic 
Comp (add rlioi 
CarWIi&cuOI' 

apocalypse 

■ ■ ■■■■■..■ 

IV-jjj'.odoBurn.wcfc 
Au.iqur rouge fofcw red 
Lei c.«tip,>gne! rwpofes 
Ui pour soiie <Ju Gral Spee 
Lei ri<jr« dans la ncige 
Uigueireducosmoi 
■ -. d'empire 

IcttatnK 
Le priwinicf 



'jeGOmmandeleslogioefsouprogloftt Jun/a U 

rorAL rrc Partfbpacior 

OJoira nion r eg Jem em par 
' ■-. ' < :■■ Martcfai 

;., ■ -■ ■(■',, . -.. .r.-..-- ;,.t la rai vj ■ ■:■"■■ fexp£dh on 



Bon de commande. Tarifs au 15/1/1984 
. -Dans la limit e des stocks disponibles - 



L. 




